home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Technotools
/
Technotools (Chestnut CD-ROM)(1993).ISO
/
lang_oth
/
mawk10
/
parse.c
< prev
next >
Wrap
C/C++ Source or Header
|
1991-10-05
|
93KB
|
2,534 lines
#ifndef lint
static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/90";
#endif
#define YYBYACC 1
#line 52 "parse.y"
#include <stdio.h>
#include "mawk.h"
#include "code.h"
#include "symtype.h"
#include "memory.h"
#include "bi_funct.h"
#include "bi_vars.h"
#include "jmp.h"
#include "field.h"
#include "files.h"
/* Bison's use of MSDOS and ours clashes */
#undef MSDOS
extern void PROTO( eat_nl, (void) ) ;
static void PROTO( resize_fblock, (FBLOCK *, INST *) ) ;
static void PROTO( code_array, (SYMTAB *) ) ;
static void PROTO( code_call_id, (CA_REC *, SYMTAB *) ) ;
static int PROTO( current_offset, (void) ) ;
static void PROTO( check_id, (SYMTAB *) ) ;
static void PROTO( check_array, (SYMTAB *) ) ;
static void PROTO( field_A2I, (void) ) ;
static int scope ;
static FBLOCK *active_funct ;
/* when scope is SCOPE_FUNCT */
#define code_address(x) if( is_local(x) )\
{ code1(L_PUSHA) ; code1((x)->offset) ; }\
else code2(_PUSHA, (x)->stval.cp)
#line 86 "parse.y"
typedef union{
CELL *cp ;
SYMTAB *stp ;
INST *start ; /* code starting address */
PF_CP fp ; /* ptr to a (print/printf) or (sub/gsub) function */
BI_REC *bip ; /* ptr to info about a builtin */
FBLOCK *fbp ; /* ptr to a function block */
ARG2_REC *arg2p ;
CA_REC *ca_p ;
int ival ;
} YYSTYPE;
#line 51 "y.tab.c"
#define UNEXPECTED 257
#define BAD_DECIMAL 258
#define NL 259
#define SEMI_COLON 260
#define LBRACE 261
#define RBRACE 262
#define LBOX 263
#define RBOX 264
#define COMMA 265
#define IO_OUT 266
#define P_OR 267
#define P_AND 268
#define ASSIGN 269
#define ADD_ASG 270
#define SUB_ASG 271
#define MUL_ASG 272
#define DIV_ASG 273
#define MOD_ASG 274
#define POW_ASG 275
#define QMARK 276
#define COLON 277
#define OR 278
#define AND 279
#define IN 280
#define MATCH 281
#define NOT_MATCH 282
#define EQ 283
#define NEQ 284
#define LT 285
#define LTE 286
#define GT 287
#define GTE 288
#define CAT 289
#define GETLINE 290
#define PLUS 291
#define MINUS 292
#define MUL 293
#define DIV 294
#define MOD 295
#define NOT 296
#define UMINUS 297
#define IO_IN 298
#define PIPE 299
#define POW 300
#define INC_or_DEC 301
#define DOLLAR 302
#define FIELD 303
#define LPAREN 304
#define RPAREN 305
#define CONSTANT 306
#define RE 307
#define ID 308
#define FUNCT_ID 309
#define BUILTIN 310
#define PRINT 311
#define PRINTF 312
#define SPLIT 313
#define MATCH_FUNC 314
#define SUB 315
#define GSUB 316
#define LENGTH 317
#define DO 318
#define WHILE 319
#define FOR 320
#define BREAK 321
#define CONTINUE 322
#define IF 323
#define ELSE 324
#define DELETE 325
#define BEGIN 326
#define END 327
#define EXIT 328
#define NEXT 329
#define RETURN 330
#define FUNCTION 331
#define YYERRCODE 256
short yylhs[] = { -1,
0, 0, 46, 46, 46, 47, 49, 47, 50, 47,
51, 47, 52, 53, 47, 6, 6, 54, 6, 55,
6, 7, 7, 7, 1, 1, 2, 2, 3, 3,
4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
4, 4, 4, 4, 4, 4, 56, 56, 16, 16,
16, 16, 16, 16, 16, 16, 16, 16, 16, 16,
16, 16, 16, 16, 57, 16, 58, 16, 59, 60,
16, 17, 17, 18, 18, 18, 18, 18, 18, 18,
18, 18, 18, 18, 18, 18, 18, 18, 18, 18,
13, 35, 35, 36, 36, 11, 5, 8, 37, 37,
9, 9, 10, 10, 61, 61, 27, 24, 62, 25,
63, 21, 26, 22, 28, 23, 29, 29, 30, 30,
16, 16, 13, 18, 18, 4, 32, 31, 14, 14,
14, 14, 14, 14, 14, 18, 16, 16, 16, 16,
16, 16, 16, 18, 65, 18, 64, 64, 18, 19,
19, 18, 33, 33, 34, 34, 18, 18, 18, 18,
18, 66, 15, 15, 12, 12, 18, 38, 38, 20,
20, 48, 39, 40, 40, 44, 44, 45, 45, 18,
41, 41, 42, 42, 42, 43, 43,
};
short yylen[] = { 2,
1, 2, 1, 1, 2, 1, 0, 3, 0, 3,
0, 3, 0, 0, 6, 1, 1, 0, 4, 0,
4, 1, 3, 2, 3, 3, 1, 1, 1, 2,
1, 2, 1, 2, 1, 1, 1, 1, 1, 1,
1, 2, 2, 1, 1, 2, 1, 1, 1, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 0, 4, 0, 4, 0, 0,
7, 1, 2, 1, 1, 3, 3, 3, 3, 3,
3, 3, 2, 2, 2, 1, 2, 2, 2, 2,
1, 0, 1, 1, 3, 5, 0, 5, 1, 1,
1, 3, 3, 3, 0, 2, 4, 2, 1, 4,
1, 7, 4, 2, 8, 2, 0, 1, 0, 1,
3, 5, 5, 5, 6, 7, 6, 2, 1, 2,
6, 4, 2, 3, 2, 1, 3, 3, 3, 3,
3, 3, 3, 6, 0, 8, 2, 2, 6, 1,
1, 1, 2, 3, 2, 3, 1, 2, 2, 3,
4, 1, 1, 1, 2, 3, 6, 1, 1, 1,
3, 2, 4, 2, 2, 0, 1, 1, 3, 3,
2, 2, 1, 3, 3, 2, 2,
};
short yydefred[] = { 0,
0, 0, 162, 0, 0, 0, 0, 0, 129, 0,
74, 22, 0, 97, 97, 0, 0, 168, 169, 152,
7, 9, 0, 0, 6, 0, 17, 86, 0, 0,
0, 0, 0, 0, 0, 0, 0, 1, 3, 4,
0, 5, 0, 47, 48, 0, 0, 99, 100, 111,
0, 0, 0, 0, 0, 0, 0, 0, 0, 31,
0, 29, 35, 0, 38, 39, 40, 36, 37, 0,
0, 0, 41, 0, 44, 45, 97, 33, 0, 0,
0, 0, 0, 0, 0, 24, 0, 0, 0, 88,
90, 0, 135, 0, 133, 0, 0, 0, 0, 87,
0, 0, 0, 0, 0, 0, 0, 174, 175, 2,
13, 18, 20, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 89,
69, 65, 67, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 172, 0, 165, 163, 164, 0, 26, 34, 0,
0, 0, 42, 43, 0, 97, 0, 153, 46, 0,
155, 0, 25, 30, 32, 114, 0, 116, 128, 0,
0, 0, 0, 0, 0, 0, 0, 0, 23, 0,
0, 134, 0, 76, 0, 0, 180, 0, 0, 0,
0, 8, 10, 0, 0, 0, 27, 12, 28, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 121, 150, 0, 63,
64, 57, 58, 59, 60, 61, 62, 0, 0, 0,
0, 0, 0, 0, 0, 178, 0, 0, 166, 0,
0, 0, 0, 0, 0, 154, 156, 109, 0, 0,
0, 0, 101, 0, 0, 0, 0, 132, 0, 0,
0, 0, 0, 181, 0, 0, 182, 0, 0, 0,
0, 0, 21, 0, 0, 0, 161, 0, 173, 0,
113, 0, 0, 107, 0, 110, 0, 0, 0, 0,
0, 0, 0, 0, 122, 0, 185, 187, 184, 186,
96, 0, 0, 0, 70, 0, 179, 0, 0, 0,
0, 0, 0, 98, 0, 0, 0, 123, 131, 125,
145, 144, 149, 15, 0, 0, 170, 167, 127, 0,
0, 0, 0, 0, 0, 0, 126, 112, 0, 0,
146, 171, 115, 148, 147,
};
short yydgoto[] = { 24,
60, 208, 61, 62, 101, 26, 27, 63, 261, 97,
28, 29, 30, 31, 157, 64, 33, 34, 230, 338,
65, 66, 67, 68, 69, 70, 71, 72, 253, 320,
73, 74, 75, 76, 263, 264, 77, 35, 36, 37,
197, 198, 277, 247, 248, 38, 39, 40, 106, 107,
114, 204, 314, 205, 206, 78, 225, 226, 224, 335,
299, 259, 79, 351, 343, 41,
};
short yysindex[] = { 60,
-249, 272, 0, 2366, 2366, 2254, -80, -192, 0, 2282,
0, 0, -280, 0, 0, -272, -269, 0, 0, 0,
0, 0, -302, 60, 0, -134, 0, 0, 2366, 2149,
126, 2598, 2366, -20, -267, -249, -247, 0, 0, 0,
-195, 0, -172, 0, 0, 2366, 2394, 0, 0, 0,
-208, -204, -88, -88, -202, -284, 1690, -88, 1690, 0,
122, 0, 0, 2193, 0, 0, 0, 0, 0, 347,
347, 347, 0, 347, 0, 0, 0, 0, 347, 2394,
-280, -236, -120, -120, 2282, 0, -120, -55, 0, 0,
0, 2394, 0, 0, 0, -227, -243, 191, 2124, 0,
-196, -200, -189, 2394, 2394, -249, -249, 0, 0, 0,
0, 0, 0, 3, -231, 2394, 2394, 2394, 2394, 2394,
2394, 2394, 2394, 2394, 2394, 2394, 2394, 2394, 2394, 0,
0, 0, 0, -173, 2310, 2310, 2394, 2394, 2394, 2394,
2394, 2394, -20, 2366, 2366, 2366, 2366, 2366, -146, 2366,
2310, 0, -161, 0, 0, 0, -138, 0, 0, 2124,
2394, 2422, 0, 0, 2394, 0, 2193, 0, 0, 2193,
0, -88, 0, 0, 0, 0, -160, 0, 0, 2450,
-152, 260, -86, 260, -116, -71, 335, -68, 0, 2394,
-82, 0, 2394, 0, 2394, -104, 0, 2478, 2394, 2548,
2572, 0, 0, 2282, 2282, 2282, 0, 0, 0, 2598,
2598, 2598, 2598, 2598, 2598, 2598, 2598, 2598, 2598, 2598,
2598, 2598, 2598, 2394, 2394, 2394, 0, 0, 582, 0,
0, 0, 0, 0, 0, 0, 0, 256, 256, -120,
-120, -120, -80, -231, -54, 0, -90, -14, 0, 2208,
-237, 2598, 35, 2221, -10, 0, 0, 0, 347, 2394,
34, 2598, 0, 28, 11, 2394, 2394, 0, 2394, 2598,
-1, 2598, -81, 0, -242, 2152, 0, 8, 10, 2310,
-59, 51, 0, 2585, 188, 2110, 0, 2394, 0, 12,
0, 15, 2394, 0, 2394, 0, -239, 2394, -88, 2394,
2394, -78, -24, -5, 0, 23, 0, 0, 0, 0,
0, -235, 25, 3, 0, 2180, 0, 29, 2598, 68,
33, -82, 2598, 0, 2598, 2236, 23, 0, 0, 0,
0, 0, 0, 0, 2394, -80, 0, 0, 0, 2394,
-88, -88, 2338, 2598, 30, 32, 0, 0, 41, 2249,
0, 0, 0, 0, 0,
};
short yyrindex[] = { 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 478, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 27, 0, 0, 0, 0,
773, 17, 1909, 1599, 0, 0, 0, 0, 0, 0,
1363, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
655, 773, 950, 1009, 0, 0, 1068, 0, 596, 0,
0, 0, 0, 419, 0, 0, 0, 1850, 36, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 1127, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 1658, 0, 0, 0, 0, 0, 0, 0,
0, 0, 48, 0, 0, 0, 714, 0, 0, 0,
0, 78, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 197, 0, 0, -175,
0, 0, 0, 36, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 2506, 0, 0, 49, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 218,
293, 368, 1939, 1958, 1972, 1987, 2001, 2020, 2034, 2049,
2063, 2082, 2096, 0, 0, 0, 0, 0, -47, 0,
0, 0, 0, 0, 0, 0, 0, 1481, 1540, 1186,
1245, 1304, 1422, 832, 0, 0, 0, 50, 0, 0,
1748, -251, 0, 0, 0, 0, 0, 0, 0, 0,
6, -213, 0, -256, 0, 0, 0, 0, 0, -232,
0, -226, 0, 0, 1797, 0, 0, 0, 0, 0,
31, 66, 0, 0, 143, -22, 0, 0, 0, 0,
0, 0, 79, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 537, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 80, 0,
0, -84, 46, 0, 83, 0, 891, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 52,
0, 0, 0, 2111, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0,
};
short yygindex[] = { 0,
44, 58, 0, -43, 84, -2, 359, 0, 0, 119,
0, 0, -7, 9, -241, 1, 0, 164, -131, 0,
0, 0, 0, 0, 0, 0, 0, 0, 40, 0,
0, 0, 0, 0, 186, -121, 0, 0, 0, 0,
0, 0, 0, 0, 0, 365, 0, 0, 0, 0,
0, 0, 0, 0, 0, 18, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0,
};
#define YYTABLESIZE 2886
short yytable[] = { 90,
32, 287, 93, 93, 231, 108, 109, 96, 118, 93,
99, 2, 82, 82, 82, 91, 95, 174, 98, 245,
100, 190, 307, 166, 32, 190, 176, 177, 178, 331,
179, 104, 104, 155, 105, 181, 151, 82, 103, 112,
113, 82, 292, 25, 42, 94, 94, 160, 93, 156,
94, 94, 94, 118, 82, 98, 153, 167, 100, 170,
159, 191, 308, 100, 130, 322, 195, 25, 150, 332,
163, 164, 104, 273, 168, 169, 171, 189, 103, 152,
182, 175, 96, 92, 92, 184, 44, 45, 98, 158,
92, 94, 187, 98, 345, 161, 185, 102, 103, 162,
98, 165, 154, 196, 200, 201, 8, 9, 88, 8,
9, 92, 89, 93, 199, 94, 210, 211, 212, 213,
214, 215, 216, 217, 218, 219, 220, 221, 222, 223,
111, 209, 112, 113, 227, 229, 229, 232, 233, 234,
235, 236, 237, 243, 302, 303, 246, 304, 313, 202,
203, 229, 82, 82, 82, 82, 82, 207, 82, 249,
180, 250, 252, 258, 183, 254, 265, 83, 84, 87,
44, 45, 186, 321, 102, 102, 266, 188, 149, 150,
262, 102, 306, 300, 256, 327, 300, 257, 192, 159,
270, 267, 115, 272, 269, 262, 143, 271, 276, 262,
274, 281, 282, 283, 32, 32, 32, 112, 113, 87,
288, 151, 151, 151, 289, 296, 151, 151, 151, 151,
151, 8, 9, 88, 284, 285, 286, 89, 151, 151,
151, 151, 151, 151, 151, 155, 68, 68, 68, 328,
300, 68, 68, 68, 68, 68, 8, 9, 88, 255,
290, 156, 295, 68, 68, 68, 68, 151, 329, 300,
160, 44, 45, 2, 105, 105, 262, 262, 98, 262,
144, 145, 146, 147, 148, 16, 16, 16, 149, 150,
229, 16, 68, 16, 16, 11, 11, 11, 316, 14,
14, 14, 300, 319, 293, 262, 341, 300, 323, 298,
325, 326, 16, 16, 106, 106, 305, 238, 239, 240,
241, 242, 311, 244, 301, 1, 324, 312, 113, 317,
2, 16, 318, 330, 19, 19, 19, 340, 155, 333,
19, 209, 19, 339, 352, 344, 353, 117, 119, 120,
252, 95, 95, 350, 156, 354, 95, 95, 95, 3,
4, 5, 176, 92, 177, 6, 117, 207, 347, 348,
7, 8, 9, 10, 86, 11, 12, 13, 14, 15,
19, 334, 16, 17, 18, 19, 20, 172, 297, 346,
44, 45, 2, 173, 278, 21, 22, 95, 110, 0,
23, 0, 0, 0, 123, 124, 125, 126, 127, 128,
129, 66, 66, 66, 0, 0, 66, 66, 66, 66,
66, 3, 4, 5, 0, 0, 0, 46, 66, 66,
66, 0, 7, 8, 9, 47, 130, 11, 0, 13,
14, 15, 48, 49, 16, 17, 18, 19, 20, 50,
51, 52, 53, 54, 55, 0, 56, 66, 0, 57,
58, 59, 108, 0, 0, 108, 108, 108, 108, 123,
124, 125, 126, 127, 128, 129, 133, 134, 135, 136,
137, 138, 139, 140, 141, 142, 50, 50, 50, 0,
0, 50, 50, 50, 50, 50, 108, 108, 108, 0,
0, 130, 108, 0, 50, 192, 0, 108, 108, 108,
108, 0, 108, 0, 108, 108, 108, 108, 108, 108,
108, 108, 108, 108, 108, 108, 108, 108, 108, 108,
0, 108, 50, 0, 108, 108, 108, 43, 0, 0,
44, 45, 2, 0, 0, 131, 0, 132, 133, 134,
135, 136, 137, 138, 139, 140, 141, 142, 146, 147,
148, 51, 51, 51, 149, 150, 51, 51, 51, 51,
51, 3, 4, 5, 194, 0, 0, 46, 0, 51,
0, 0, 7, 8, 9, 47, 0, 11, 0, 13,
14, 15, 48, 49, 16, 17, 18, 19, 20, 50,
51, 52, 53, 54, 55, 0, 56, 51, 0, 57,
58, 59, 172, 0, 0, 44, 45, 2, 0, 0,
131, 0, 132, 133, 134, 135, 136, 137, 138, 139,
140, 141, 142, 0, 0, 0, 52, 52, 52, 0,
0, 52, 52, 52, 52, 52, 3, 4, 5, 268,
0, 0, 46, 0, 52, 0, 0, 7, 8, 9,
47, 0, 11, 0, 13, 14, 15, 48, 49, 16,
17, 18, 19, 20, 50, 51, 52, 53, 54, 55,
0, 56, 52, 0, 57, 58, 59, 130, 130, 130,
0, 97, 130, 130, 130, 130, 130, 130, 130, 130,
130, 130, 130, 130, 130, 130, 130, 130, 130, 130,
130, 130, 130, 130, 130, 130, 130, 0, 130, 130,
130, 130, 130, 130, 130, 0, 130, 130, 130, 130,
130, 130, 130, 130, 130, 0, 130, 130, 130, 0,
0, 130, 130, 130, 130, 130, 75, 75, 75, 0,
97, 75, 75, 75, 75, 75, 91, 91, 91, 91,
91, 91, 91, 75, 75, 75, 75, 75, 75, 75,
75, 75, 75, 75, 75, 75, 0, 75, 75, 75,
75, 75, 75, 75, 0, 0, 75, 75, 0, 75,
75, 75, 75, 75, 0, 75, 75, 75, 0, 0,
75, 75, 75, 75, 75, 124, 124, 124, 0, 0,
124, 124, 124, 124, 124, 123, 123, 123, 123, 123,
123, 123, 124, 124, 124, 124, 124, 124, 124, 124,
124, 124, 124, 124, 124, 0, 124, 124, 124, 124,
124, 124, 124, 0, 0, 124, 124, 0, 124, 124,
124, 124, 124, 0, 124, 124, 124, 0, 0, 124,
124, 124, 124, 124, 91, 91, 91, 0, 97, 91,
91, 91, 91, 91, 137, 138, 139, 140, 141, 142,
0, 91, 91, 91, 91, 91, 91, 91, 91, 91,
91, 91, 91, 91, 0, 91, 91, 91, 91, 91,
91, 91, 0, 91, 91, 91, 91, 91, 91, 91,
91, 91, 0, 91, 91, 91, 0, 0, 91, 91,
91, 91, 91, 75, 75, 75, 0, 97, 75, 75,
75, 75, 75, 0, 0, 0, 0, 0, 0, 0,
75, 75, 75, 75, 75, 75, 75, 75, 75, 75,
75, 75, 75, 0, 75, 75, 75, 75, 75, 75,
75, 0, 0, 75, 75, 0, 75, 75, 75, 75,
75, 0, 75, 75, 75, 0, 0, 75, 75, 75,
75, 75, 158, 158, 158, 0, 0, 158, 158, 158,
158, 158, 0, 0, 0, 0, 0, 0, 0, 158,
158, 158, 158, 158, 158, 158, 158, 158, 158, 158,
158, 158, 0, 158, 158, 158, 158, 158, 158, 158,
0, 0, 158, 158, 158, 158, 158, 158, 158, 158,
0, 158, 158, 158, 0, 0, 158, 158, 158, 158,
158, 136, 136, 136, 0, 0, 136, 136, 136, 136,
136, 0, 0, 0, 0, 0, 0, 0, 136, 136,
136, 136, 136, 136, 136, 136, 136, 136, 136, 136,
136, 0, 136, 136, 136, 136, 136, 136, 136, 0,
0, 136, 136, 0, 136, 136, 136, 136, 136, 0,
136, 136, 136, 0, 0, 136, 136, 136, 136, 136,
82, 82, 82, 0, 0, 82, 82, 82, 82, 82,
0, 0, 0, 0, 0, 0, 0, 82, 82, 82,
82, 82, 82, 82, 82, 82, 82, 82, 82, 82,
0, 82, 82, 82, 82, 82, 82, 82, 0, 0,
82, 0, 82, 82, 82, 82, 82, 82, 0, 82,
82, 82, 0, 0, 82, 82, 82, 82, 82, 124,
124, 124, 0, 0, 124, 124, 124, 124, 124, 0,
0, 0, 0, 0, 0, 0, 124, 124, 124, 124,
124, 124, 124, 124, 124, 124, 124, 124, 124, 0,
124, 124, 124, 124, 124, 124, 124, 0, 0, 124,
124, 0, 124, 124, 124, 124, 124, 0, 124, 124,
124, 0, 0, 124, 124, 124, 124, 124, 84, 84,
84, 0, 0, 84, 84, 84, 84, 84, 0, 0,
0, 0, 0, 0, 0, 84, 84, 84, 84, 84,
84, 84, 84, 84, 84, 84, 84, 84, 0, 84,
84, 84, 84, 84, 84, 84, 0, 0, 0, 0,
84, 84, 84, 84, 84, 84, 0, 84, 84, 84,
0, 0, 84, 84, 84, 84, 84, 85, 85, 85,
0, 0, 85, 85, 85, 85, 85, 0, 0, 0,
0, 0, 0, 0, 85, 85, 85, 85, 85, 85,
85, 85, 85, 85, 85, 85, 85, 0, 85, 85,
85, 85, 85, 85, 85, 0, 0, 0, 0, 85,
85, 85, 85, 85, 85, 0, 85, 85, 85, 0,
0, 85, 85, 85, 85, 85, 83, 83, 83, 0,
0, 83, 83, 83, 83, 83, 0, 0, 0, 0,
0, 0, 0, 83, 83, 83, 83, 83, 83, 83,
83, 83, 83, 83, 83, 83, 0, 83, 83, 83,
83, 83, 83, 83, 0, 0, 0, 0, 83, 83,
83, 83, 83, 83, 0, 83, 83, 83, 0, 0,
83, 83, 83, 83, 83, 159, 159, 159, 0, 0,
159, 159, 159, 159, 159, 0, 0, 0, 0, 0,
0, 0, 159, 159, 159, 159, 159, 159, 159, 159,
159, 159, 159, 159, 159, 0, 159, 159, 159, 159,
159, 159, 159, 0, 0, 0, 0, 159, 159, 159,
159, 159, 159, 0, 159, 159, 159, 0, 0, 159,
159, 159, 159, 159, 79, 79, 79, 0, 0, 79,
79, 79, 79, 79, 0, 0, 0, 0, 0, 0,
0, 79, 79, 79, 79, 79, 79, 79, 79, 79,
79, 79, 79, 79, 0, 79, 79, 79, 79, 79,
79, 79, 0, 0, 0, 0, 79, 79, 79, 79,
79, 79, 0, 79, 79, 79, 0, 0, 79, 79,
79, 79, 79, 80, 80, 80, 0, 0, 80, 80,
80, 80, 80, 0, 0, 0, 0, 0, 0, 0,
80, 80, 80, 80, 80, 80, 80, 80, 80, 80,
80, 80, 80, 0, 80, 80, 80, 80, 80, 80,
80, 0, 0, 0, 0, 80, 80, 80, 80, 80,
80, 0, 80, 80, 80, 0, 0, 80, 80, 80,
80, 80, 81, 81, 81, 0, 0, 81, 81, 81,
81, 81, 0, 0, 0, 0, 0, 0, 0, 81,
81, 81, 81, 81, 81, 81, 81, 81, 81, 81,
81, 81, 0, 81, 81, 81, 81, 81, 81, 81,
0, 0, 0, 0, 81, 81, 81, 81, 81, 81,
0, 81, 81, 81, 0, 0, 81, 81, 81, 81,
81, 157, 157, 157, 0, 0, 157, 157, 157, 157,
157, 0, 0, 0, 0, 0, 0, 0, 157, 157,
157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
157, 0, 157, 157, 157, 157, 157, 157, 157, 0,
0, 157, 157, 157, 0, 0, 0, 157, 157, 0,
0, 157, 157, 0, 0, 157, 157, 157, 157, 157,
160, 160, 160, 0, 0, 160, 160, 160, 160, 160,
0, 0, 0, 0, 0, 0, 0, 160, 160, 160,
160, 160, 160, 160, 160, 160, 160, 160, 160, 160,
0, 160, 160, 160, 160, 160, 160, 160, 0, 0,
160, 160, 160, 0, 0, 0, 160, 160, 0, 0,
160, 160, 0, 0, 160, 160, 160, 160, 160, 77,
77, 77, 0, 0, 77, 77, 77, 77, 77, 0,
0, 0, 0, 0, 0, 0, 77, 77, 77, 77,
77, 77, 77, 77, 77, 77, 77, 77, 77, 0,
77, 77, 77, 0, 0, 0, 77, 0, 0, 0,
0, 77, 77, 77, 77, 77, 77, 0, 77, 77,
77, 0, 0, 77, 77, 77, 77, 77, 78, 78,
78, 0, 0, 78, 78, 78, 78, 78, 0, 0,
0, 0, 0, 0, 0, 78, 78, 78, 78, 78,
78, 78, 78, 78, 78, 78, 78, 78, 0, 78,
78, 78, 0, 0, 0, 78, 0, 0, 0, 0,
78, 78, 78, 78, 78, 78, 0, 78, 78, 78,
0, 0, 78, 78, 78, 78, 78, 72, 72, 72,
0, 0, 72, 72, 72, 72, 72, 0, 0, 0,
0, 0, 0, 0, 72, 72, 72, 72, 72, 72,
72, 72, 72, 72, 72, 72, 72, 0, 72, 0,
0, 0, 0, 0, 72, 0, 0, 0, 0, 72,
72, 72, 72, 72, 72, 0, 72, 72, 72, 0,
0, 72, 72, 72, 72, 72, 73, 73, 73, 0,
0, 73, 73, 73, 73, 73, 0, 0, 0, 0,
0, 0, 0, 73, 73, 73, 73, 73, 73, 73,
73, 73, 73, 73, 73, 73, 0, 73, 44, 45,
0, 0, 0, 73, 0, 0, 0, 0, 73, 73,
73, 73, 73, 73, 0, 73, 73, 73, 0, 0,
73, 73, 73, 73, 73, 0, 0, 0, 0, 3,
4, 5, 0, 0, 0, 46, 0, 0, 0, 0,
7, 8, 9, 47, 0, 11, 0, 13, 14, 15,
0, 0, 16, 17, 18, 19, 20, 75, 0, 0,
97, 0, 0, 0, 0, 0, 91, 91, 91, 91,
91, 91, 91, 75, 0, 75, 75, 0, 75, 75,
75, 75, 75, 75, 75, 75, 0, 75, 75, 75,
75, 75, 75, 75, 0, 0, 75, 75, 0, 75,
75, 75, 0, 75, 0, 75, 75, 75, 0, 97,
75, 75, 75, 75, 75, 91, 91, 91, 91, 91,
91, 91, 75, 0, 75, 75, 75, 75, 75, 75,
75, 75, 75, 75, 75, 0, 75, 75, 75, 75,
75, 75, 75, 0, 0, 75, 75, 0, 75, 75,
75, 0, 75, 0, 75, 75, 75, 0, 0, 75,
75, 75, 75, 75, 136, 0, 136, 136, 0, 0,
0, 0, 0, 0, 0, 136, 0, 136, 136, 136,
136, 136, 136, 136, 136, 136, 136, 136, 0, 136,
136, 136, 136, 136, 136, 136, 0, 0, 136, 136,
0, 136, 136, 136, 0, 136, 0, 136, 136, 136,
0, 0, 136, 136, 136, 136, 136, 49, 49, 49,
0, 0, 49, 49, 49, 49, 49, 0, 0, 0,
0, 0, 0, 0, 49, 49, 49, 49, 49, 49,
49, 49, 49, 49, 49, 49, 49, 53, 53, 53,
0, 0, 53, 53, 53, 53, 53, 0, 0, 0,
0, 0, 0, 49, 0, 53, 54, 54, 54, 0,
0, 54, 54, 54, 54, 54, 0, 0, 0, 0,
55, 55, 55, 0, 54, 55, 55, 55, 55, 55,
0, 0, 0, 53, 0, 56, 56, 56, 55, 0,
56, 56, 56, 56, 56, 0, 0, 0, 0, 137,
137, 137, 54, 56, 137, 137, 137, 137, 137, 0,
0, 0, 0, 0, 0, 0, 55, 137, 138, 138,
138, 0, 0, 138, 138, 138, 138, 138, 0, 0,
0, 56, 139, 139, 139, 0, 138, 139, 139, 139,
139, 139, 0, 0, 0, 137, 0, 140, 140, 140,
139, 0, 140, 140, 140, 140, 140, 0, 0, 0,
0, 141, 141, 141, 138, 140, 141, 141, 141, 141,
141, 0, 0, 0, 0, 0, 0, 0, 139, 141,
142, 142, 142, 0, 0, 142, 142, 142, 142, 142,
0, 0, 0, 140, 143, 143, 143, 0, 142, 143,
143, 143, 143, 143, 0, 0, 0, 141, 0, 71,
71, 71, 143, 0, 71, 71, 71, 71, 71, 0,
0, 0, 0, 0, 0, 0, 142, 71, 193, 134,
135, 136, 137, 138, 139, 140, 141, 142, 0, 131,
143, 132, 133, 134, 135, 136, 137, 138, 139, 140,
141, 142, 0, 0, 0, 71, 309, 116, 117, 118,
119, 120, 121, 122, 0, 0, 0, 131, 194, 132,
133, 134, 135, 136, 137, 138, 139, 140, 141, 142,
0, 0, 0, 0, 336, 0, 0, 0, 0, 0,
0, 44, 45, 0, 0, 131, 310, 132, 133, 134,
135, 136, 137, 138, 139, 140, 141, 142, 131, 0,
132, 133, 134, 135, 136, 137, 138, 139, 140, 141,
142, 0, 0, 131, 337, 132, 133, 134, 135, 136,
137, 138, 139, 140, 141, 142, 131, 0, 132, 133,
134, 135, 136, 137, 138, 139, 140, 141, 142, 0,
0, 131, 291, 132, 133, 134, 135, 136, 137, 138,
139, 140, 141, 142, 131, 294, 132, 133, 134, 135,
136, 137, 138, 139, 140, 141, 142, 0, 0, 0,
342, 0, 0, 3, 4, 5, 0, 0, 0, 6,
0, 0, 0, 355, 7, 8, 9, 85, 0, 11,
12, 81, 14, 15, 0, 0, 16, 17, 18, 19,
20, 3, 4, 5, 0, 0, 0, 6, 0, 0,
0, 0, 7, 8, 9, 10, 0, 11, 12, 13,
14, 15, 0, 0, 16, 17, 18, 19, 20, 3,
4, 5, 0, 0, 0, 46, 0, 0, 0, 0,
7, 8, 9, 47, 0, 11, 228, 13, 14, 15,
0, 0, 16, 17, 18, 19, 20, 3, 4, 5,
0, 0, 0, 46, 0, 0, 0, 0, 7, 8,
9, 47, 0, 11, 349, 13, 14, 15, 0, 0,
16, 17, 18, 19, 20, 3, 4, 5, 0, 0,
0, 46, 0, 0, 0, 0, 7, 8, 9, 80,
0, 11, 0, 81, 14, 15, 0, 0, 16, 17,
18, 19, 20, 3, 4, 5, 0, 0, 0, 46,
0, 0, 0, 0, 7, 8, 9, 47, 0, 11,
0, 13, 14, 15, 0, 0, 16, 17, 18, 19,
20, 3, 4, 5, 0, 0, 0, 46, 0, 0,
0, 0, 7, 8, 9, 47, 0, 11, 0, 251,
14, 15, 0, 0, 16, 17, 18, 19, 20, 3,
4, 5, 0, 0, 0, 46, 0, 0, 0, 0,
7, 8, 9, 260, 0, 11, 0, 13, 14, 15,
0, 0, 16, 17, 18, 19, 20, 3, 4, 5,
0, 0, 0, 46, 0, 0, 0, 0, 7, 8,
9, 47, 0, 11, 0, 275, 14, 15, 0, 0,
16, 17, 18, 19, 20, 183, 183, 183, 0, 0,
0, 183, 0, 0, 0, 0, 183, 183, 183, 183,
0, 183, 279, 183, 183, 183, 0, 0, 183, 183,
183, 183, 183, 131, 0, 132, 133, 134, 135, 136,
137, 138, 139, 140, 141, 142, 280, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 131, 0, 132,
133, 134, 135, 136, 137, 138, 139, 140, 141, 142,
131, 315, 132, 133, 134, 135, 136, 137, 138, 139,
140, 141, 142, 131, 0, 132, 133, 134, 135, 136,
137, 138, 139, 140, 141, 142,
};
short yycheck[] = { 7,
0, 243, 259, 260, 136, 308, 309, 10, 260, 266,
10, 261, 4, 5, 6, 7, 8, 61, 10, 151,
301, 265, 265, 308, 24, 265, 70, 71, 72, 265,
74, 304, 265, 41, 304, 79, 304, 29, 265, 267,
268, 33, 280, 0, 1, 259, 260, 47, 305, 41,
264, 265, 266, 305, 46, 47, 304, 57, 301, 59,
43, 305, 305, 301, 301, 305, 263, 24, 300, 305,
53, 54, 305, 195, 57, 58, 59, 305, 305, 36,
80, 64, 85, 259, 260, 85, 259, 260, 80, 262,
266, 305, 92, 85, 336, 304, 88, 14, 15, 304,
92, 304, 298, 304, 104, 105, 302, 303, 304, 302,
303, 304, 308, 306, 304, 308, 116, 117, 118, 119,
120, 121, 122, 123, 124, 125, 126, 127, 128, 129,
265, 114, 267, 268, 308, 135, 136, 137, 138, 139,
140, 141, 142, 290, 266, 267, 308, 269, 280, 106,
107, 151, 144, 145, 146, 147, 148, 114, 150, 298,
77, 161, 162, 324, 81, 165, 319, 4, 5, 6,
259, 260, 89, 295, 259, 260, 263, 94, 299, 300,
180, 266, 264, 265, 167, 264, 265, 170, 305, 172,
190, 263, 29, 193, 263, 195, 33, 280, 198, 199,
305, 204, 205, 206, 204, 205, 206, 267, 268, 46,
265, 259, 260, 261, 305, 259, 264, 265, 266, 267,
268, 302, 303, 304, 224, 225, 226, 308, 276, 277,
278, 279, 280, 281, 282, 243, 259, 260, 261, 264,
265, 264, 265, 266, 267, 268, 302, 303, 304, 166,
265, 243, 263, 276, 277, 278, 279, 305, 264, 265,
260, 259, 260, 261, 259, 260, 266, 267, 260, 269,
291, 292, 293, 294, 295, 259, 260, 261, 299, 300,
280, 265, 305, 267, 268, 259, 260, 261, 288, 259,
260, 261, 265, 293, 260, 295, 264, 265, 298, 266,
300, 301, 267, 268, 259, 260, 308, 144, 145, 146,
147, 148, 305, 150, 304, 256, 299, 308, 268, 308,
261, 305, 308, 301, 259, 260, 261, 260, 336, 305,
265, 314, 267, 305, 305, 335, 305, 260, 260, 260,
340, 259, 260, 343, 336, 305, 264, 265, 266, 290,
291, 292, 305, 305, 305, 296, 305, 314, 341, 342,
301, 302, 303, 304, 6, 306, 307, 308, 309, 310,
305, 314, 313, 314, 315, 316, 317, 256, 260, 340,
259, 260, 261, 262, 199, 326, 327, 305, 24, -1,
331, -1, -1, -1, 269, 270, 271, 272, 273, 274,
275, 259, 260, 261, -1, -1, 264, 265, 266, 267,
268, 290, 291, 292, -1, -1, -1, 296, 276, 277,
278, -1, 301, 302, 303, 304, 301, 306, -1, 308,
309, 310, 311, 312, 313, 314, 315, 316, 317, 318,
319, 320, 321, 322, 323, -1, 325, 305, -1, 328,
329, 330, 256, -1, -1, 259, 260, 261, 262, 269,
270, 271, 272, 273, 274, 275, 279, 280, 281, 282,
283, 284, 285, 286, 287, 288, 259, 260, 261, -1,
-1, 264, 265, 266, 267, 268, 290, 291, 292, -1,
-1, 301, 296, -1, 277, 305, -1, 301, 302, 303,
304, -1, 306, -1, 308, 309, 310, 311, 312, 313,
314, 315, 316, 317, 318, 319, 320, 321, 322, 323,
-1, 325, 305, -1, 328, 329, 330, 256, -1, -1,
259, 260, 261, -1, -1, 276, -1, 278, 279, 280,
281, 282, 283, 284, 285, 286, 287, 288, 293, 294,
295, 259, 260, 261, 299, 300, 264, 265, 266, 267,
268, 290, 291, 292, 305, -1, -1, 296, -1, 277,
-1, -1, 301, 302, 303, 304, -1, 306, -1, 308,
309, 310, 311, 312, 313, 314, 315, 316, 317, 318,
319, 320, 321, 322, 323, -1, 325, 305, -1, 328,
329, 330, 256, -1, -1, 259, 260, 261, -1, -1,
276, -1, 278, 279, 280, 281, 282, 283, 284, 285,
286, 287, 288, -1, -1, -1, 259, 260, 261, -1,
-1, 264, 265, 266, 267, 268, 290, 291, 292, 305,
-1, -1, 296, -1, 277, -1, -1, 301, 302, 303,
304, -1, 306, -1, 308, 309, 310, 311, 312, 313,
314, 315, 316, 317, 318, 319, 320, 321, 322, 323,
-1, 325, 305, -1, 328, 329, 330, 259, 260, 261,
-1, 263, 264, 265, 266, 267, 268, 269, 270, 271,
272, 273, 274, 275, 276, 277, 278, 279, 280, 281,
282, 283, 284, 285, 286, 287, 288, -1, 290, 291,
292, 293, 294, 295, 296, -1, 298, 299, 300, 301,
302, 303, 304, 305, 306, -1, 308, 309, 310, -1,
-1, 313, 314, 315, 316, 317, 259, 260, 261, -1,
263, 264, 265, 266, 267, 268, 269, 270, 271, 272,
273, 274, 275, 276, 277, 278, 279, 280, 281, 282,
283, 284, 285, 286, 287, 288, -1, 290, 291, 292,
293, 294, 295, 296, -1, -1, 299, 300, -1, 302,
303, 304, 305, 306, -1, 308, 309, 310, -1, -1,
313, 314, 315, 316, 317, 259, 260, 261, -1, -1,
264, 265, 266, 267, 268, 269, 270, 271, 272, 273,
274, 275, 276, 277, 278, 279, 280, 281, 282, 283,
284, 285, 286, 287, 288, -1, 290, 291, 292, 293,
294, 295, 296, -1, -1, 299, 300, -1, 302, 303,
304, 305, 306, -1, 308, 309, 310, -1, -1, 313,
314, 315, 316, 317, 259, 260, 261, -1, 263, 264,
265, 266, 267, 268, 283, 284, 285, 286, 287, 288,
-1, 276, 277, 278, 279, 280, 281, 282, 283, 284,
285, 286, 287, 288, -1, 290, 291, 292, 293, 294,
295, 296, -1, 298, 299, 300, 301, 302, 303, 304,
305, 306, -1, 308, 309, 310, -1, -1, 313, 314,
315, 316, 317, 259, 260, 261, -1, 263, 264, 265,
266, 267, 268, -1, -1, -1, -1, -1, -1, -1,
276, 277, 278, 279, 280, 281, 282, 283, 284, 285,
286, 287, 288, -1, 290, 291, 292, 293, 294, 295,
296, -1, -1, 299, 300, -1, 302, 303, 304, 305,
306, -1, 308, 309, 310, -1, -1, 313, 314, 315,
316, 317, 259, 260, 261, -1, -1, 264, 265, 266,
267, 268, -1, -1, -1, -1, -1, -1, -1, 276,
277, 278, 279, 280, 281, 282, 283, 284, 285, 286,
287, 288, -1, 290, 291, 292, 293, 294, 295, 296,
-1, -1, 299, 300, 301, 302, 303, 304, 305, 306,
-1, 308, 309, 310, -1, -1, 313, 314, 315, 316,
317, 259, 260, 261, -1, -1, 264, 265, 266, 267,
268, -1, -1, -1, -1, -1, -1, -1, 276, 277,
278, 279, 280, 281, 282, 283, 284, 285, 286, 287,
288, -1, 290, 291, 292, 293, 294, 295, 296, -1,
-1, 299, 300, -1, 302, 303, 304, 305, 306, -1,
308, 309, 310, -1, -1, 313, 314, 315, 316, 317,
259, 260, 261, -1, -1, 264, 265, 266, 267, 268,
-1, -1, -1, -1, -1, -1, -1, 276, 277, 278,
279, 280, 281, 282, 283, 284, 285, 286, 287, 288,
-1, 290, 291, 292, 293, 294, 295, 296, -1, -1,
299, -1, 301, 302, 303, 304, 305, 306, -1, 308,
309, 310, -1, -1, 313, 314, 315, 316, 317, 259,
260, 261, -1, -1, 264, 265, 266, 267, 268, -1,
-1, -1, -1, -1, -1, -1, 276, 277, 278, 279,
280, 281, 282, 283, 284, 285, 286, 287, 288, -1,
290, 291, 292, 293, 294, 295, 296, -1, -1, 299,
300, -1, 302, 303, 304, 305, 306, -1, 308, 309,
310, -1, -1, 313, 314, 315, 316, 317, 259, 260,
261, -1, -1, 264, 265, 266, 267, 268, -1, -1,
-1, -1, -1, -1, -1, 276, 277, 278, 279, 280,
281, 282, 283, 284, 285, 286, 287, 288, -1, 290,
291, 292, 293, 294, 295, 296, -1, -1, -1, -1,
301, 302, 303, 304, 305, 306, -1, 308, 309, 310,
-1, -1, 313, 314, 315, 316, 317, 259, 260, 261,
-1, -1, 264, 265, 266, 267, 268, -1, -1, -1,
-1, -1, -1, -1, 276, 277, 278, 279, 280, 281,
282, 283, 284, 285, 286, 287, 288, -1, 290, 291,
292, 293, 294, 295, 296, -1, -1, -1, -1, 301,
302, 303, 304, 305, 306, -1, 308, 309, 310, -1,
-1, 313, 314, 315, 316, 317, 259, 260, 261, -1,
-1, 264, 265, 266, 267, 268, -1, -1, -1, -1,
-1, -1, -1, 276, 277, 278, 279, 280, 281, 282,
283, 284, 285, 286, 287, 288, -1, 290, 291, 292,
293, 294, 295, 296, -1, -1, -1, -1, 301, 302,
303, 304, 305, 306, -1, 308, 309, 310, -1, -1,
313, 314, 315, 316, 317, 259, 260, 261, -1, -1,
264, 265, 266, 267, 268, -1, -1, -1, -1, -1,
-1, -1, 276, 277, 278, 279, 280, 281, 282, 283,
284, 285, 286, 287, 288, -1, 290, 291, 292, 293,
294, 295, 296, -1, -1, -1, -1, 301, 302, 303,
304, 305, 306, -1, 308, 309, 310, -1, -1, 313,
314, 315, 316, 317, 259, 260, 261, -1, -1, 264,
265, 266, 267, 268, -1, -1, -1, -1, -1, -1,
-1, 276, 277, 278, 279, 280, 281, 282, 283, 284,
285, 286, 287, 288, -1, 290, 291, 292, 293, 294,
295, 296, -1, -1, -1, -1, 301, 302, 303, 304,
305, 306, -1, 308, 309, 310, -1, -1, 313, 314,
315, 316, 317, 259, 260, 261, -1, -1, 264, 265,
266, 267, 268, -1, -1, -1, -1, -1, -1, -1,
276, 277, 278, 279, 280, 281, 282, 283, 284, 285,
286, 287, 288, -1, 290, 291, 292, 293, 294, 295,
296, -1, -1, -1, -1, 301, 302, 303, 304, 305,
306, -1, 308, 309, 310, -1, -1, 313, 314, 315,
316, 317, 259, 260, 261, -1, -1, 264, 265, 266,
267, 268, -1, -1, -1, -1, -1, -1, -1, 276,
277, 278, 279, 280, 281, 282, 283, 284, 285, 286,
287, 288, -1, 290, 291, 292, 293, 294, 295, 296,
-1, -1, -1, -1, 301, 302, 303, 304, 305, 306,
-1, 308, 309, 310, -1, -1, 313, 314, 315, 316,
317, 259, 260, 261, -1, -1, 264, 265, 266, 267,
268, -1, -1, -1, -1, -1, -1, -1, 276, 277,
278, 279, 280, 281, 282, 283, 284, 285, 286, 287,
288, -1, 290, 291, 292, 293, 294, 295, 296, -1,
-1, 299, 300, 301, -1, -1, -1, 305, 306, -1,
-1, 309, 310, -1, -1, 313, 314, 315, 316, 317,
259, 260, 261, -1, -1, 264, 265, 266, 267, 268,
-1, -1, -1, -1, -1, -1, -1, 276, 277, 278,
279, 280, 281, 282, 283, 284, 285, 286, 287, 288,
-1, 290, 291, 292, 293, 294, 295, 296, -1, -1,
299, 300, 301, -1, -1, -1, 305, 306, -1, -1,
309, 310, -1, -1, 313, 314, 315, 316, 317, 259,
260, 261, -1, -1, 264, 265, 266, 267, 268, -1,
-1, -1, -1, -1, -1, -1, 276, 277, 278, 279,
280, 281, 282, 283, 284, 285, 286, 287, 288, -1,
290, 291, 292, -1, -1, -1, 296, -1, -1, -1,
-1, 301, 302, 303, 304, 305, 306, -1, 308, 309,
310, -1, -1, 313, 314, 315, 316, 317, 259, 260,
261, -1, -1, 264, 265, 266, 267, 268, -1, -1,
-1, -1, -1, -1, -1, 276, 277, 278, 279, 280,
281, 282, 283, 284, 285, 286, 287, 288, -1, 290,
291, 292, -1, -1, -1, 296, -1, -1, -1, -1,
301, 302, 303, 304, 305, 306, -1, 308, 309, 310,
-1, -1, 313, 314, 315, 316, 317, 259, 260, 261,
-1, -1, 264, 265, 266, 267, 268, -1, -1, -1,
-1, -1, -1, -1, 276, 277, 278, 279, 280, 281,
282, 283, 284, 285, 286, 287, 288, -1, 290, -1,
-1, -1, -1, -1, 296, -1, -1, -1, -1, 301,
302, 303, 304, 305, 306, -1, 308, 309, 310, -1,
-1, 313, 314, 315, 316, 317, 259, 260, 261, -1,
-1, 264, 265, 266, 267, 268, -1, -1, -1, -1,
-1, -1, -1, 276, 277, 278, 279, 280, 281, 282,
283, 284, 285, 286, 287, 288, -1, 290, 259, 260,
-1, -1, -1, 296, -1, -1, -1, -1, 301, 302,
303, 304, 305, 306, -1, 308, 309, 310, -1, -1,
313, 314, 315, 316, 317, -1, -1, -1, -1, 290,
291, 292, -1, -1, -1, 296, -1, -1, -1, -1,
301, 302, 303, 304, -1, 306, -1, 308, 309, 310,
-1, -1, 313, 314, 315, 316, 317, 260, -1, -1,
263, -1, -1, -1, -1, -1, 269, 270, 271, 272,
273, 274, 275, 276, -1, 278, 279, -1, 281, 282,
283, 284, 285, 286, 287, 288, -1, 290, 291, 292,
293, 294, 295, 296, -1, -1, 299, 300, -1, 302,
303, 304, -1, 306, -1, 308, 309, 310, -1, 263,
313, 314, 315, 316, 317, 269, 270, 271, 272, 273,
274, 275, 276, -1, 278, 279, 280, 281, 282, 283,
284, 285, 286, 287, 288, -1, 290, 291, 292, 293,
294, 295, 296, -1, -1, 299, 300, -1, 302, 303,
304, -1, 306, -1, 308, 309, 310, -1, -1, 313,
314, 315, 316, 317, 265, -1, 267, 268, -1, -1,
-1, -1, -1, -1, -1, 276, -1, 278, 279, 280,
281, 282, 283, 284, 285, 286, 287, 288, -1, 290,
291, 292, 293, 294, 295, 296, -1, -1, 299, 300,
-1, 302, 303, 304, -1, 306, -1, 308, 309, 310,
-1, -1, 313, 314, 315, 316, 317, 259, 260, 261,
-1, -1, 264, 265, 266, 267, 268, -1, -1, -1,
-1, -1, -1, -1, 276, 277, 278, 279, 280, 281,
282, 283, 284, 285, 286, 287, 288, 259, 260, 261,
-1, -1, 264, 265, 266, 267, 268, -1, -1, -1,
-1, -1, -1, 305, -1, 277, 259, 260, 261, -1,
-1, 264, 265, 266, 267, 268, -1, -1, -1, -1,
259, 260, 261, -1, 277, 264, 265, 266, 267, 268,
-1, -1, -1, 305, -1, 259, 260, 261, 277, -1,
264, 265, 266, 267, 268, -1, -1, -1, -1, 259,
260, 261, 305, 277, 264, 265, 266, 267, 268, -1,
-1, -1, -1, -1, -1, -1, 305, 277, 259, 260,
261, -1, -1, 264, 265, 266, 267, 268, -1, -1,
-1, 305, 259, 260, 261, -1, 277, 264, 265, 266,
267, 268, -1, -1, -1, 305, -1, 259, 260, 261,
277, -1, 264, 265, 266, 267, 268, -1, -1, -1,
-1, 259, 260, 261, 305, 277, 264, 265, 266, 267,
268, -1, -1, -1, -1, -1, -1, -1, 305, 277,
259, 260, 261, -1, -1, 264, 265, 266, 267, 268,
-1, -1, -1, 305, 259, 260, 261, -1, 277, 264,
265, 266, 267, 268, -1, -1, -1, 305, -1, 259,
260, 261, 277, -1, 264, 265, 266, 267, 268, -1,
-1, -1, -1, -1, -1, -1, 305, 277, 265, 280,
281, 282, 283, 284, 285, 286, 287, 288, -1, 276,
305, 278, 279, 280, 281, 282, 283, 284, 285, 286,
287, 288, -1, -1, -1, 305, 265, 269, 270, 271,
272, 273, 274, 275, -1, -1, -1, 276, 305, 278,
279, 280, 281, 282, 283, 284, 285, 286, 287, 288,
-1, -1, -1, -1, 265, -1, -1, -1, -1, -1,
-1, 259, 260, -1, -1, 276, 305, 278, 279, 280,
281, 282, 283, 284, 285, 286, 287, 288, 276, -1,
278, 279, 280, 281, 282, 283, 284, 285, 286, 287,
288, -1, -1, 276, 305, 278, 279, 280, 281, 282,
283, 284, 285, 286, 287, 288, 276, -1, 278, 279,
280, 281, 282, 283, 284, 285, 286, 287, 288, -1,
-1, 276, 305, 278, 279, 280, 281, 282, 283, 284,
285, 286, 287, 288, 276, 305, 278, 279, 280, 281,
282, 283, 284, 285, 286, 287, 288, -1, -1, -1,
305, -1, -1, 290, 291, 292, -1, -1, -1, 296,
-1, -1, -1, 305, 301, 302, 303, 304, -1, 306,
307, 308, 309, 310, -1, -1, 313, 314, 315, 316,
317, 290, 291, 292, -1, -1, -1, 296, -1, -1,
-1, -1, 301, 302, 303, 304, -1, 306, 307, 308,
309, 310, -1, -1, 313, 314, 315, 316, 317, 290,
291, 292, -1, -1, -1, 296, -1, -1, -1, -1,
301, 302, 303, 304, -1, 306, 307, 308, 309, 310,
-1, -1, 313, 314, 315, 316, 317, 290, 291, 292,
-1, -1, -1, 296, -1, -1, -1, -1, 301, 302,
303, 304, -1, 306, 307, 308, 309, 310, -1, -1,
313, 314, 315, 316, 317, 290, 291, 292, -1, -1,
-1, 296, -1, -1, -1, -1, 301, 302, 303, 304,
-1, 306, -1, 308, 309, 310, -1, -1, 313, 314,
315, 316, 317, 290, 291, 292, -1, -1, -1, 296,
-1, -1, -1, -1, 301, 302, 303, 304, -1, 306,
-1, 308, 309, 310, -1, -1, 313, 314, 315, 316,
317, 290, 291, 292, -1, -1, -1, 296, -1, -1,
-1, -1, 301, 302, 303, 304, -1, 306, -1, 308,
309, 310, -1, -1, 313, 314, 315, 316, 317, 290,
291, 292, -1, -1, -1, 296, -1, -1, -1, -1,
301, 302, 303, 304, -1, 306, -1, 308, 309, 310,
-1, -1, 313, 314, 315, 316, 317, 290, 291, 292,
-1, -1, -1, 296, -1, -1, -1, -1, 301, 302,
303, 304, -1, 306, -1, 308, 309, 310, -1, -1,
313, 314, 315, 316, 317, 290, 291, 292, -1, -1,
-1, 296, -1, -1, -1, -1, 301, 302, 303, 304,
-1, 306, 265, 308, 309, 310, -1, -1, 313, 314,
315, 316, 317, 276, -1, 278, 279, 280, 281, 282,
283, 284, 285, 286, 287, 288, 265, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, 276, -1, 278,
279, 280, 281, 282, 283, 284, 285, 286, 287, 288,
276, 277, 278, 279, 280, 281, 282, 283, 284, 285,
286, 287, 288, 276, -1, 278, 279, 280, 281, 282,
283, 284, 285, 286, 287, 288,
};
#define YYFINAL 24
#ifndef YYDEBUG
#define YYDEBUG 0
#endif
#define YYMAXTOKEN 331
#if YYDEBUG
char *yyname[] = {
"end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"UNEXPECTED","BAD_DECIMAL","NL",
"SEMI_COLON","LBRACE","RBRACE","LBOX","RBOX","COMMA","IO_OUT","P_OR","P_AND",
"ASSIGN","ADD_ASG","SUB_ASG","MUL_ASG","DIV_ASG","MOD_ASG","POW_ASG","QMARK",
"COLON","OR","AND","IN","MATCH","NOT_MATCH","EQ","NEQ","LT","LTE","GT","GTE",
"CAT","GETLINE","PLUS","MINUS","MUL","DIV","MOD","NOT","UMINUS","IO_IN","PIPE",
"POW","INC_or_DEC","DOLLAR","FIELD","LPAREN","RPAREN","CONSTANT","RE","ID",
"FUNCT_ID","BUILTIN","PRINT","PRINTF","SPLIT","MATCH_FUNC","SUB","GSUB",
"LENGTH","DO","WHILE","FOR","BREAK","CONTINUE","IF","ELSE","DELETE","BEGIN",
"END","EXIT","NEXT","RETURN","FUNCTION",
};
char *yyrule[] = {
"$accept : program",
"program : program_block",
"program : program program_block",
"program_block : PA_block",
"program_block : function_def",
"program_block : error block",
"PA_block : block",
"$$1 :",
"PA_block : BEGIN $$1 block",
"$$2 :",
"PA_block : END $$2 block",
"$$3 :",
"PA_block : pattern $$3 block_or_separator",
"$$4 :",
"$$5 :",
"PA_block : pattern COMMA $$4 pattern $$5 block_or_separator",
"pattern : expr",
"pattern : p_pattern",
"$$6 :",
"pattern : pattern P_OR $$6 pattern",
"$$7 :",
"pattern : pattern P_AND $$7 pattern",
"p_pattern : RE",
"p_pattern : LPAREN pattern RPAREN",
"p_pattern : NOT p_pattern",
"block : LBRACE statement_list RBRACE",
"block : LBRACE error RBRACE",
"block_or_separator : block",
"block_or_separator : separator",
"statement_list : statement",
"statement_list : statement_list statement",
"statement : block",
"statement : expr separator",
"statement : separator",
"statement : error separator",
"statement : print_statement",
"statement : if_statement",
"statement : if_else_statement",
"statement : do_statement",
"statement : while_statement",
"statement : for_statement",
"statement : array_loop",
"statement : BREAK separator",
"statement : CONTINUE separator",
"statement : exit_statement",
"statement : return_statement",
"statement : NEXT separator",
"separator : NL",
"separator : SEMI_COLON",
"expr : cat_expr",
"expr : lvalue ASSIGN expr",
"expr : lvalue ADD_ASG expr",
"expr : lvalue SUB_ASG expr",
"expr : lvalue MUL_ASG expr",
"expr : lvalue DIV_ASG expr",
"expr : lvalue MOD_ASG expr",
"expr : lvalue POW_ASG expr",
"expr : expr EQ expr",
"expr : expr NEQ expr",
"expr : expr LT expr",
"expr : expr LTE expr",
"expr : expr GT expr",
"expr : expr GTE expr",
"expr : expr MATCH re_or_expr",
"expr : expr NOT_MATCH re_or_expr",
"$$8 :",
"expr : expr OR $$8 expr",
"$$9 :",
"expr : expr AND $$9 expr",
"$$10 :",
"$$11 :",
"expr : expr QMARK $$10 expr COLON $$11 expr",
"cat_expr : p_expr",
"cat_expr : cat_expr p_expr",
"p_expr : CONSTANT",
"p_expr : ID",
"p_expr : LPAREN expr RPAREN",
"p_expr : p_expr PLUS p_expr",
"p_expr : p_expr MINUS p_expr",
"p_expr : p_expr MUL p_expr",
"p_expr : p_expr DIV p_expr",
"p_expr : p_expr MOD p_expr",
"p_expr : p_expr POW p_expr",
"p_expr : NOT p_expr",
"p_expr : PLUS p_expr",
"p_expr : MINUS p_expr",
"p_expr : builtin",
"p_expr : ID INC_or_DEC",
"p_expr : INC_or_DEC lvalue",
"p_expr : field INC_or_DEC",
"p_expr : INC_or_DEC field",
"lvalue : ID",
"arglist :",
"arglist : args",
"args : expr",
"args : args COMMA expr",
"builtin : BUILTIN mark LPAREN arglist RPAREN",
"mark :",
"print_statement : print mark pr_args pr_direction separator",
"print : PRINT",
"print : PRINTF",
"pr_args : arglist",
"pr_args : LPAREN arg2 RPAREN",
"arg2 : expr COMMA expr",
"arg2 : arg2 COMMA expr",
"pr_direction :",
"pr_direction : IO_OUT expr",
"if_front : IF LPAREN expr RPAREN",
"if_statement : if_front statement",
"else : ELSE",
"if_else_statement : if_front statement else statement",
"do : DO",
"do_statement : do statement WHILE LPAREN expr RPAREN separator",
"while_front : WHILE LPAREN expr RPAREN",
"while_statement : while_front statement",
"for_front : FOR LPAREN fexpr0 SEMI_COLON fexpr1 SEMI_COLON fexpr0 RPAREN",
"for_statement : for_front statement",
"fexpr0 :",
"fexpr0 : expr",
"fexpr1 :",
"fexpr1 : expr",
"expr : expr IN ID",
"expr : LPAREN arg2 RPAREN IN ID",
"lvalue : ID mark LBOX args RBOX",
"p_expr : ID mark LBOX args RBOX",
"p_expr : ID mark LBOX args RBOX INC_or_DEC",
"statement : DELETE ID mark LBOX args RBOX separator",
"array_loop_front : FOR LPAREN ID IN ID RPAREN",
"array_loop : array_loop_front statement",
"field : FIELD",
"field : DOLLAR ID",
"field : DOLLAR ID mark LBOX args RBOX",
"field : DOLLAR LPAREN expr RPAREN",
"field : DOLLAR field",
"field : LPAREN field RPAREN",
"field : DOLLAR CONSTANT",
"p_expr : field",
"expr : field ASSIGN expr",
"expr : field ADD_ASG expr",
"expr : field SUB_ASG expr",
"expr : field MUL_ASG expr",
"expr : field DIV_ASG expr",
"expr : field MOD_ASG expr",
"expr : field POW_ASG expr",
"p_expr : SPLIT LPAREN expr COMMA ID RPAREN",
"$$12 :",
"p_expr : SPLIT LPAREN expr COMMA ID COMMA $$12 split_back",
"split_back : expr RPAREN",
"split_back : RE RPAREN",
"p_expr : MATCH_FUNC LPAREN expr COMMA re_or_expr RPAREN",
"re_or_expr : RE",
"re_or_expr : expr",
"p_expr : LENGTH",
"exit_statement : EXIT separator",
"exit_statement : EXIT expr separator",
"return_statement : RETURN separator",
"return_statement : RETURN expr separator",
"p_expr : getline",
"p_expr : getline fvalue",
"p_expr : getline_file p_expr",
"p_expr : p_expr PIPE GETLINE",
"p_expr : p_expr PIPE GETLINE fvalue",
"getline : GETLINE",
"fvalue : lvalue",
"fvalue : field",
"getline_file : getline IO_IN",
"getline_file : getline fvalue IO_IN",
"p_expr : sub_or_gsub LPAREN re_or_expr COMMA expr sub_back",
"sub_or_gsub : SUB",
"sub_or_gsub : GSUB",
"sub_back : RPAREN",
"sub_back : COMMA fvalue RPAREN",
"function_def : funct_start block",
"funct_start : funct_head LPAREN f_arglist RPAREN",
"funct_head : FUNCTION ID",
"funct_head : FUNCTION FUNCT_ID",
"f_arglist :",
"f_arglist : f_args",
"f_args : ID",
"f_args : f_args COMMA ID",
"p_expr : FUNCT_ID mark call_args",
"call_args : LPAREN RPAREN",
"call_args : ca_front ca_back",
"ca_front : LPAREN",
"ca_front : ca_front expr COMMA",
"ca_front : ca_front ID COMMA",
"ca_back : expr RPAREN",
"ca_back : ID RPAREN",
};
#endif
#define yyclearin (yychar=(-1))
#define yyerrok (yyerrflag=0)
#ifdef YYSTACKSIZE
#ifndef YYMAXDEPTH
#define YYMAXDEPTH YYSTACKSIZE
#endif
#else
#ifdef YYMAXDEPTH
#define YYSTACKSIZE YYMAXDEPTH
#else
#define YYSTACKSIZE 500
#define YYMAXDEPTH 500
#endif
#endif
int yydebug;
int yynerrs;
int yyerrflag;
int yychar;
short *yyssp;
YYSTYPE *yyvsp;
YYSTYPE yyval;
YYSTYPE yylval;
short yyss[YYSTACKSIZE];
YYSTYPE yyvs[YYSTACKSIZE];
#define yystacksize YYSTACKSIZE
#line 1038 "parse.y"
/* resize the code for a user function */
static void resize_fblock( fbp, code_ptr )
FBLOCK *fbp ;
INST *code_ptr ;
{ int size ;
code1(_RET0) ; /* make sure there is always a return statement */
if ( dump_code )
{ code1(_HALT) ; /*stops da() */
add_to_fdump_list(fbp) ;
}
if ( (size = code_ptr - fbp->code) > PAGE_SZ-1 )
overflow("function code size", PAGE_SZ ) ;
/* resize the code */
fbp->code = (INST*) zrealloc(fbp->code, PAGE_SZ*sizeof(INST),
size * sizeof(INST) ) ;
}
static void check_id( p )
register SYMTAB *p ;
{
switch(p->type)
{
case ST_NONE : /* new id */
p->type = ST_VAR ;
p->stval.cp = new_CELL() ;
p->stval.cp->type = C_NOINIT ;
break ;
case ST_LOCAL_NONE :
p->type = ST_LOCAL_VAR ;
active_funct->typev[p->offset] = ST_LOCAL_VAR ;
break ;
case ST_VAR :
case ST_LOCAL_VAR : break ;
default :
type_error(p) ;
break ;
}
}
static void check_array(p)
register SYMTAB *p ;
{
switch(p->type)
{
case ST_NONE : /* a new array */
p->type = ST_ARRAY ;
p->stval.array = new_ARRAY() ;
break ;
case ST_ARRAY :
case ST_LOCAL_ARRAY :
break ;
case ST_LOCAL_NONE :
p->type = ST_LOCAL_ARRAY ;
active_funct->typev[p->offset] = ST_LOCAL_ARRAY ;
break ;
default : type_error(p) ; break ;
}
}
static void code_array(p)
register SYMTAB *p ;
{ if ( is_local(p) )
{ code1(LA_PUSHA) ; code1(p->offset) ; }
else code2(A_PUSHA, p->stval.array) ;
}
static void field_A2I()
{
if ( code_ptr[-2].op == F_PUSHA )
code_ptr[-2].op =
((CELL *)code_ptr[-1].ptr == field ||
(CELL *)code_ptr[-1].ptr > field+NF )
? _PUSHI : F_PUSHI ;
else if ( code_ptr[-1].op == FE_PUSHA )
code_ptr[-1].op = FE_PUSHI ;
else bozo("missing F(E)_PUSHA") ;
}
static int current_offset()
{
switch( scope )
{
case SCOPE_MAIN : return code_ptr - main_start ;
case SCOPE_BEGIN : return code_ptr - begin_start ;
case SCOPE_END : return code_ptr - end_start ;
case SCOPE_FUNCT : return code_ptr - active_funct->code ;
}
}
static void code_call_id( p, ip )
register CA_REC *p ;
register SYMTAB *ip ;
{ static CELL dummy ;
switch( ip->type )
{
case ST_VAR :
p->type = CA_EXPR ;
code2(_PUSHI, ip->stval.cp) ;
break ;
case ST_LOCAL_VAR :
p->type = CA_EXPR ;
code1(L_PUSHI) ;
code1(ip->offset) ;
break ;
case ST_ARRAY :
p->type = CA_ARRAY ;
code2(A_PUSHA, ip->stval.array) ;
break ;
case ST_LOCAL_ARRAY :
p->type = CA_ARRAY ;
code1(LA_PUSHA) ;
code1(ip->offset) ;
break ;
case ST_NONE :
p->type = ST_NONE ;
p->call_offset = current_offset() ;
p->sym_p = ip ;
code2(_PUSHI, &dummy) ;
break ;
case ST_LOCAL_NONE :
p->type = ST_LOCAL_NONE ;
p->call_offset = current_offset() ;
p->type_p = & active_funct->typev[ip->offset] ;
code1(L_PUSHI) ;
code1(ip->offset) ;
break ;
#ifdef DEBUG
default :
bozo("code_call_id") ;
#endif
}
}
int parse()
{ int yy = yyparse() ;
#if YYBYACC
extern struct yacc_mem *yacc_memp ;
yacc_memp++ ; /* puts parser tables in mem pool */
#endif
if ( resolve_list ) resolve_fcalls() ;
return yy ;
}
#line 1293 "y.tab.c"
#define YYABORT goto yyabort
#define YYACCEPT goto yyaccept
#define YYERROR goto yyerrlab
int
yyparse()
{
register int yym, yyn, yystate;
#if YYDEBUG
register char *yys;
extern char *getenv();
if (yys = getenv("YYDEBUG"))
{
yyn = *yys;
if (yyn >= '0' && yyn <= '9')
yydebug = yyn - '0';
}
#endif
yynerrs = 0;
yyerrflag = 0;
yychar = (-1);
yyssp = yyss;
yyvsp = yyvs;
*yyssp = yystate = 0;
yyloop:
if (yyn = yydefred[yystate]) goto yyreduce;
if (yychar < 0)
{
if ((yychar = yylex()) < 0) yychar = 0;
#if YYDEBUG
if (yydebug)
{
yys = 0;
if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
if (!yys) yys = "illegal-symbol";
printf("yydebug: state %d, reading %d (%s)\n", yystate,
yychar, yys);
}
#endif
}
if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&
yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
{
#if YYDEBUG
if (yydebug)
printf("yydebug: state %d, shifting to state %d\n",
yystate, yytable[yyn]);
#endif
if (yyssp >= yyss + yystacksize - 1)
{
goto yyoverflow;
}
*++yyssp = yystate = yytable[yyn];
*++yyvsp = yylval;
yychar = (-1);
if (yyerrflag > 0) --yyerrflag;
goto yyloop;
}
if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 &&
yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
{
yyn = yytable[yyn];
goto yyreduce;
}
if (yyerrflag) goto yyinrecovery;
#ifdef lint
goto yynewerror;
#endif
yynewerror:
yyerror("syntax error");
#ifdef lint
goto yyerrlab;
#endif
yyerrlab:
++yynerrs;
yyinrecovery:
if (yyerrflag < 3)
{
yyerrflag = 3;
for (;;)
{
if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 &&
yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)
{
#if YYDEBUG
if (yydebug)
printf("yydebug: state %d, error recovery shifting\
to state %d\n", *yyssp, yytable[yyn]);
#endif
if (yyssp >= yyss + yystacksize - 1)
{
goto yyoverflow;
}
*++yyssp = yystate = yytable[yyn];
*++yyvsp = yylval;
goto yyloop;
}
else
{
#if YYDEBUG
if (yydebug)
printf("yydebug: error recovery discarding state %d\n",
*yyssp);
#endif
if (yyssp <= yyss) goto yyabort;
--yyssp;
--yyvsp;
}
}
}
else
{
if (yychar == 0) goto yyabort;
#if YYDEBUG
if (yydebug)
{
yys = 0;
if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
if (!yys) yys = "illegal-symbol";
printf("yydebug: state %d, error recovery discards token %d (%s)\n",
yystate, yychar, yys);
}
#endif
yychar = (-1);
goto yyloop;
}
yyreduce:
#if YYDEBUG
if (yydebug)
printf("yydebug: state %d, reducing by rule %d (%s)\n",
yystate, yyn, yyrule[yyn]);
#endif
yym = yylen[yyn];
yyval = yyvsp[1-yym];
switch (yyn)
{
case 5:
#line 172 "parse.y"
{ if (scope == SCOPE_FUNCT)
{ restore_ids() ; scope = SCOPE_MAIN ; }
code_ptr = main_code_ptr ;
}
break;
case 6:
#line 179 "parse.y"
{ /* this do nothing action removes a vacuous warning
from Bison */
}
break;
case 7:
#line 184 "parse.y"
{
if ( ! begin_start )
begin_start = begin_code_ptr =
(INST*)zmalloc(PAGE_SZ*sizeof(INST)) ;
main_code_ptr = code_ptr ;
code_ptr = begin_code_ptr ;
scope = SCOPE_BEGIN ;
}
break;
case 8:
#line 195 "parse.y"
{ begin_code_ptr = code_ptr ;
code_ptr = main_code_ptr ;
scope = SCOPE_MAIN ;
}
break;
case 9:
#line 201 "parse.y"
{
if ( ! end_start )
end_start = end_code_ptr =
(INST*)zmalloc(PAGE_SZ*sizeof(INST)) ;
main_code_ptr = code_ptr ;
code_ptr = end_code_ptr ;
scope = SCOPE_END ;
}
break;
case 10:
#line 212 "parse.y"
{ end_code_ptr = code_ptr ;
code_ptr = main_code_ptr ;
scope = SCOPE_MAIN ;
}
break;
case 11:
#line 218 "parse.y"
{ code_jmp(_JZ, (INST*)0, yyvsp[0].start) ; }
break;
case 12:
#line 221 "parse.y"
{ patch_jmp( code_ptr ) ; }
break;
case 13:
#line 225 "parse.y"
{ code_push(yyvsp[-1].start, code_ptr - yyvsp[-1].start) ;
code_ptr = yyvsp[-1].start ;
code1(_RANGE) ; code1(1) ;
code_ptr += 3 ;
code_ptr += code_pop(code_ptr) ;
code1(_STOP0) ;
yyvsp[-1].start[2].op = code_ptr - (yyvsp[-1].start+1) ;
}
break;
case 14:
#line 234 "parse.y"
{ code1(_STOP0) ; }
break;
case 15:
#line 237 "parse.y"
{ yyvsp[-5].start[3].op = yyvsp[0].start - (yyvsp[-5].start+1) ;
yyvsp[-5].start[4].op = code_ptr - (yyvsp[-5].start+1) ;
}
break;
case 18:
#line 247 "parse.y"
{ code1(_DUP) ;
code_jmp(_JNZ, (INST*)0, (INST*)0) ;
code1(_POP) ;
}
break;
case 19:
#line 252 "parse.y"
{ patch_jmp(code_ptr) ; }
break;
case 20:
#line 255 "parse.y"
{ code1(_DUP) ;
code_jmp(_JZ, (INST*)0, (INST*)0) ;
code1(_POP) ;
}
break;
case 21:
#line 260 "parse.y"
{ patch_jmp(code_ptr) ; }
break;
case 22:
#line 267 "parse.y"
{ yyval.start = code_ptr ;
code2(_PUSHI, &field[0]) ;
code2(_PUSHC, yyvsp[0].cp) ;
code1(_MATCH) ;
}
break;
case 23:
#line 274 "parse.y"
{ yyval.start = yyvsp[-1].start ; }
break;
case 24:
#line 276 "parse.y"
{ code1(_NOT) ; yyval.start = yyvsp[0].start ; }
break;
case 25:
#line 281 "parse.y"
{ yyval.start = yyvsp[-1].start ; }
break;
case 26:
#line 283 "parse.y"
{ yyval.start = code_ptr ; /* does nothing won't be executed */
print_flag = getline_flag = paren_cnt = 0 ;
yyerrok ; }
break;
case 28:
#line 290 "parse.y"
{ yyval.start = code_ptr ;
code1(_PUSHINT) ; code1(0) ;
code2(_PRINT, bi_print) ;
}
break;
case 32:
#line 302 "parse.y"
{ code1(_POP) ; }
break;
case 33:
#line 304 "parse.y"
{ yyval.start = code_ptr ; }
break;
case 34:
#line 306 "parse.y"
{ yyval.start = code_ptr ;
print_flag = getline_flag = 0 ;
paren_cnt = 0 ;
yyerrok ;
}
break;
case 42:
#line 319 "parse.y"
{ yyval.start = code_ptr ; BC_insert('B', code_ptr) ;
code2(_JMP, 0) /* don't use code_jmp ! */ ; }
break;
case 43:
#line 322 "parse.y"
{ yyval.start = code_ptr ; BC_insert('C', code_ptr) ;
code2(_JMP, 0) ; }
break;
case 45:
#line 326 "parse.y"
{ if ( scope != SCOPE_FUNCT )
compile_error("return outside function body") ;
}
break;
case 46:
#line 330 "parse.y"
{ if ( scope != SCOPE_MAIN )
compile_error( "improper use of next" ) ;
yyval.start = code_ptr ; code1(_NEXT) ;
}
break;
case 50:
#line 340 "parse.y"
{ code1(_ASSIGN) ; }
break;
case 51:
#line 341 "parse.y"
{ code1(_ADD_ASG) ; }
break;
case 52:
#line 342 "parse.y"
{ code1(_SUB_ASG) ; }
break;
case 53:
#line 343 "parse.y"
{ code1(_MUL_ASG) ; }
break;
case 54:
#line 344 "parse.y"
{ code1(_DIV_ASG) ; }
break;
case 55:
#line 345 "parse.y"
{ code1(_MOD_ASG) ; }
break;
case 56:
#line 346 "parse.y"
{ code1(_POW_ASG) ; }
break;
case 57:
#line 347 "parse.y"
{ code1(_EQ) ; }
break;
case 58:
#line 348 "parse.y"
{ code1(_NEQ) ; }
break;
case 59:
#line 349 "parse.y"
{ code1(_LT) ; }
break;
case 60:
#line 350 "parse.y"
{ code1(_LTE) ; }
break;
case 61:
#line 351 "parse.y"
{ code1(_GT) ; }
break;
case 62:
#line 352 "parse.y"
{ code1(_GTE) ; }
break;
case 63:
#line 354 "parse.y"
{ code1(_MATCH) ; }
break;
case 64:
#line 356 "parse.y"
{ code1(_MATCH) ; code1(_NOT) ; }
break;
case 65:
#line 360 "parse.y"
{ code1(_DUP) ;
code_jmp(_JNZ, (INST*)0, (INST*)0) ;
code1(_POP) ;
}
break;
case 66:
#line 365 "parse.y"
{ patch_jmp(code_ptr) ; code1(_TEST) ; }
break;
case 67:
#line 368 "parse.y"
{ code1(_DUP) ; code_jmp(_JZ, (INST*)0, (INST*)0) ;
code1(_POP) ; }
break;
case 68:
#line 371 "parse.y"
{ patch_jmp(code_ptr) ; code1(_TEST) ; }
break;
case 69:
#line 373 "parse.y"
{ code_jmp(_JZ, (INST*)0, yyvsp[-1].start) ; }
break;
case 70:
#line 374 "parse.y"
{ code_jmp(_JMP, (INST*)0, (INST*)0) ; }
break;
case 71:
#line 376 "parse.y"
{ patch_jmp(code_ptr) ; patch_jmp(yyvsp[0].start) ; }
break;
case 73:
#line 381 "parse.y"
{ code1(_CAT) ; }
break;
case 74:
#line 385 "parse.y"
{ yyval.start = code_ptr ; code2(_PUSHC, yyvsp[0].cp) ; }
break;
case 75:
#line 387 "parse.y"
{ check_id(yyvsp[0].stp) ;
yyval.start = code_ptr ;
if ( is_local(yyvsp[0].stp) )
{ code1(L_PUSHI) ; code1(yyvsp[0].stp->offset) ; }
else code2(_PUSHI, yyvsp[0].stp->stval.cp) ;
}
break;
case 76:
#line 395 "parse.y"
{ yyval.start = yyvsp[-1].start ; }
break;
case 77:
#line 397 "parse.y"
{ code1(_ADD) ; }
break;
case 78:
#line 398 "parse.y"
{ code1(_SUB) ; }
break;
case 79:
#line 399 "parse.y"
{ code1(_MUL) ; }
break;
case 80:
#line 400 "parse.y"
{ code1(_DIV) ; }
break;
case 81:
#line 401 "parse.y"
{ code1(_MOD) ; }
break;
case 82:
#line 402 "parse.y"
{ code1(_POW) ; }
break;
case 83:
#line 404 "parse.y"
{ yyval.start = yyvsp[0].start ; code1(_NOT) ; }
break;
case 84:
#line 406 "parse.y"
{ yyval.start = yyvsp[0].start ; code1(_UPLUS) ; }
break;
case 85:
#line 408 "parse.y"
{ yyval.start = yyvsp[0].start ; code1(_UMINUS) ; }
break;
case 87:
#line 413 "parse.y"
{ check_id(yyvsp[-1].stp) ;
yyval.start = code_ptr ;
code_address(yyvsp[-1].stp) ;
if ( yyvsp[0].ival == '+' ) code1(_POST_INC) ;
else code1(_POST_DEC) ;
}
break;
case 88:
#line 421 "parse.y"
{ yyval.start = yyvsp[0].start ;
if ( yyvsp[-1].ival == '+' ) code1(_PRE_INC) ;
else code1(_PRE_DEC) ;
}
break;
case 89:
#line 428 "parse.y"
{ if (yyvsp[0].ival == '+' ) code1(F_POST_INC ) ;
else code1(F_POST_DEC) ;
}
break;
case 90:
#line 432 "parse.y"
{ yyval.start = yyvsp[0].start ;
if ( yyvsp[-1].ival == '+' ) code1(F_PRE_INC) ;
else code1( F_PRE_DEC) ;
}
break;
case 91:
#line 439 "parse.y"
{ yyval.start = code_ptr ;
check_id(yyvsp[0].stp) ;
code_address(yyvsp[0].stp) ;
}
break;
case 92:
#line 447 "parse.y"
{ yyval.ival = 0 ; }
break;
case 94:
#line 452 "parse.y"
{ yyval.ival = 1 ; }
break;
case 95:
#line 454 "parse.y"
{ yyval.ival = yyvsp[-2].ival + 1 ; }
break;
case 96:
#line 459 "parse.y"
{ BI_REC *p = yyvsp[-4].bip ;
yyval.start = yyvsp[-3].start ;
if ( p-> min_args > yyvsp[-1].ival || p->max_args < yyvsp[-1].ival )
compile_error(
"wrong number of arguments in call to %s" ,
p->name ) ;
if ( p->min_args != p->max_args ) /* variable args */
{ code1(_PUSHINT) ; code1(yyvsp[-1].ival) ; }
code2(_BUILTIN , p->fp) ;
}
break;
case 97:
#line 473 "parse.y"
{ yyval.start = code_ptr ; }
break;
case 98:
#line 476 "parse.y"
{ code2(_PRINT, yyvsp[-4].fp) ; yyval.start = yyvsp[-3].start ;
if ( yyvsp[-4].fp == bi_printf && yyvsp[-2].ival == 0 )
compile_error("no arguments in call to printf") ;
print_flag = 0 ;
yyval.start = yyvsp[-3].start ;
}
break;
case 99:
#line 484 "parse.y"
{ yyval.fp = bi_print ; print_flag = 1 ;}
break;
case 100:
#line 485 "parse.y"
{ yyval.fp = bi_printf ; print_flag = 1 ; }
break;
case 101:
#line 488 "parse.y"
{ code1(_PUSHINT) ; code1(yyvsp[0].ival) ; }
break;
case 102:
#line 490 "parse.y"
{ yyval.ival = yyvsp[-1].arg2p->cnt ; zfree(yyvsp[-1].arg2p,sizeof(ARG2_REC)) ;
code1(_PUSHINT) ; code1(yyval.ival) ;
}
break;
case 103:
#line 496 "parse.y"
{ yyval.arg2p = (ARG2_REC*) zmalloc(sizeof(ARG2_REC)) ;
yyval.arg2p->start = yyvsp[-2].start ;
yyval.arg2p->cnt = 2 ;
}
break;
case 104:
#line 501 "parse.y"
{ yyval.arg2p = yyvsp[-2].arg2p ; yyval.arg2p->cnt++ ; }
break;
case 106:
#line 506 "parse.y"
{ code1(_PUSHINT) ; code1(yyvsp[-1].ival) ; }
break;
case 107:
#line 513 "parse.y"
{ yyval.start = yyvsp[-1].start ; eat_nl() ;
code_jmp(_JZ, (INST*)0, yyvsp[-1].start) ;
}
break;
case 108:
#line 519 "parse.y"
{ patch_jmp( code_ptr ) ; }
break;
case 109:
#line 522 "parse.y"
{ eat_nl() ; code_jmp(_JMP, (INST*)0, (INST*)0) ; }
break;
case 110:
#line 526 "parse.y"
{ patch_jmp(code_ptr) ; patch_jmp(yyvsp[0].start) ; }
break;
case 111:
#line 532 "parse.y"
{ eat_nl() ; BC_new() ; }
break;
case 112:
#line 536 "parse.y"
{ yyval.start = yyvsp[-5].start ;
code_jmp(_JNZ, yyvsp[-5].start, yyvsp[-2].start) ;
BC_clear(code_ptr, yyvsp[-2].start) ; }
break;
case 113:
#line 542 "parse.y"
{ eat_nl() ; BC_new() ;
code_push(yyvsp[-1].start, code_ptr-yyvsp[-1].start) ;
code_ptr = yyval.start = yyvsp[-1].start ;
code_jmp(_JMP,(INST*)0, (INST*)0) ;
}
break;
case 114:
#line 550 "parse.y"
{ INST *c_addr = code_ptr ; /*continue address*/
unsigned len ;
patch_jmp( c_addr) ;
len = code_pop(c_addr) ;
code_ptr += len ;
code_jmp(_JNZ, yyvsp[0].start, code_ptr-len) ;
BC_clear(code_ptr, c_addr) ;
}
break;
case 115:
#line 564 "parse.y"
{ yyval.start = yyvsp[-5].start ; eat_nl() ; BC_new() ;
/* push fexpr2 and 3 */
code_push( yyvsp[-3].start, yyvsp[-1].start-yyvsp[-3].start) ;
code_push( yyvsp[-1].start, code_ptr - yyvsp[-1].start) ;
/* reset code_ptr */
code_ptr = yyvsp[-3].start ;
code_jmp(_JMP, (INST*)0, (INST*)0) ;
}
break;
case 116:
#line 575 "parse.y"
{ INST *c_addr = code_ptr ;
unsigned len = code_pop(code_ptr) ;
code_ptr += len ;
patch_jmp(code_ptr) ;
len = code_pop(code_ptr) ;
code_ptr += len ;
code_jmp(_JNZ, yyvsp[0].start, code_ptr-len) ;
BC_clear( code_ptr, c_addr) ;
}
break;
case 117:
#line 587 "parse.y"
{ yyval.start = code_ptr; }
break;
case 118:
#line 588 "parse.y"
{ code1(_POP) ; }
break;
case 119:
#line 592 "parse.y"
{ /* this will be wiped out when the jmp is coded */
yyval.start = code_ptr ; code2(_PUSHC, &cell_one) ; }
break;
case 121:
#line 600 "parse.y"
{ check_array(yyvsp[0].stp) ;
code_array(yyvsp[0].stp) ;
code1(A_TEST) ;
}
break;
case 122:
#line 605 "parse.y"
{ yyval.start = yyvsp[-3].arg2p->start ;
code1(A_CAT) ; code1(yyvsp[-3].arg2p->cnt) ;
zfree(yyvsp[-3].arg2p, sizeof(ARG2_REC)) ;
check_array(yyvsp[0].stp) ;
code_array(yyvsp[0].stp) ;
code1(A_TEST) ;
}
break;
case 123:
#line 616 "parse.y"
{
if ( yyvsp[-1].ival > 1 )
{ code1(A_CAT) ; code1(yyvsp[-1].ival) ; }
check_array(yyvsp[-4].stp) ;
if( is_local(yyvsp[-4].stp) )
{ code1(LAE_PUSHA) ; code1(yyvsp[-4].stp->offset) ; }
else code2(AE_PUSHA, yyvsp[-4].stp->stval.array) ;
yyval.start = yyvsp[-3].start ;
}
break;
case 124:
#line 629 "parse.y"
{
if ( yyvsp[-1].ival > 1 )
{ code1(A_CAT) ; code1(yyvsp[-1].ival) ; }
check_array(yyvsp[-4].stp) ;
if( is_local(yyvsp[-4].stp) )
{ code1(LAE_PUSHI) ; code1(yyvsp[-4].stp->offset) ; }
else code2(AE_PUSHI, yyvsp[-4].stp->stval.array) ;
yyval.start = yyvsp[-3].start ;
}
break;
case 125:
#line 641 "parse.y"
{
if ( yyvsp[-2].ival > 1 )
{ code1(A_CAT) ; code1(yyvsp[-2].ival) ; }
check_array(yyvsp[-5].stp) ;
if( is_local(yyvsp[-5].stp) )
{ code1(LAE_PUSHA) ; code1(yyvsp[-5].stp->offset) ; }
else code2(AE_PUSHA, yyvsp[-5].stp->stval.array) ;
if ( yyvsp[0].ival == '+' ) code1(_POST_INC) ;
else code1(_POST_DEC) ;
yyval.start = yyvsp[-4].start ;
}
break;
case 126:
#line 658 "parse.y"
{
yyval.start = yyvsp[-4].start ;
if ( yyvsp[-2].ival > 1 ) { code1(A_CAT) ; code1(yyvsp[-2].ival) ; }
check_array(yyvsp[-5].stp) ;
code_array(yyvsp[-5].stp) ;
code1(A_DEL) ;
}
break;
case 127:
#line 671 "parse.y"
{ eat_nl() ; BC_new() ;
yyval.start = code_ptr ;
check_id(yyvsp[-3].stp) ;
code_address(yyvsp[-3].stp) ;
check_array(yyvsp[-1].stp) ;
code_array(yyvsp[-1].stp) ;
code1(A_LOOP) ; code1(_STOP) ;
code1(0) ; /* put offset of following code here*/
}
break;
case 128:
#line 684 "parse.y"
{ code1(_STOP) ;
BC_clear( yyvsp[0].start - 2, code_ptr-1) ;
yyvsp[0].start[-1].op = code_ptr - & yyvsp[0].start[-2] ;
}
break;
case 129:
#line 698 "parse.y"
{ yyval.start = code_ptr ; code2(F_PUSHA, yyvsp[0].cp) ; }
break;
case 130:
#line 700 "parse.y"
{ check_id(yyvsp[0].stp) ;
yyval.start = code_ptr ;
if ( is_local(yyvsp[0].stp) )
{ code1(L_PUSHI) ; code1(yyvsp[0].stp->offset) ; }
else code2(_PUSHI, yyvsp[0].stp->stval.cp) ;
code1(FE_PUSHA) ;
}
break;
case 131:
#line 708 "parse.y"
{
if ( yyvsp[-1].ival > 1 )
{ code1(A_CAT) ; code1(yyvsp[-1].ival) ; }
check_array(yyvsp[-4].stp) ;
if( is_local(yyvsp[-4].stp) )
{ code1(LAE_PUSHI) ; code1(yyvsp[-4].stp->offset) ; }
else code2(AE_PUSHI, yyvsp[-4].stp->stval.array) ;
code1(FE_PUSHA) ;
yyval.start = yyvsp[-3].start ;
}
break;
case 132:
#line 721 "parse.y"
{ yyval.start = yyvsp[-1].start ; code1(FE_PUSHA) ; }
break;
case 133:
#line 723 "parse.y"
{ yyval.start = yyvsp[0].start ; field_A2I() ; code1(FE_PUSHA) ; }
break;
case 134:
#line 725 "parse.y"
{ yyval.start = yyvsp[-1].start ; }
break;
case 135:
#line 727 "parse.y"
{ yyval.start = code_ptr ;
code2(_PUSHC, yyvsp[0].cp) ;
code1(FE_PUSHA) ;
}
break;
case 136:
#line 734 "parse.y"
{ field_A2I() ; }
break;
case 137:
#line 737 "parse.y"
{ code1(F_ASSIGN) ; }
break;
case 138:
#line 738 "parse.y"
{ code1(F_ADD_ASG) ; }
break;
case 139:
#line 739 "parse.y"
{ code1(F_SUB_ASG) ; }
break;
case 140:
#line 740 "parse.y"
{ code1(F_MUL_ASG) ; }
break;
case 141:
#line 741 "parse.y"
{ code1(F_DIV_ASG) ; }
break;
case 142:
#line 742 "parse.y"
{ code1(F_MOD_ASG) ; }
break;
case 143:
#line 743 "parse.y"
{ code1(F_POW_ASG) ; }
break;
case 144:
#line 750 "parse.y"
{ yyval.start = yyvsp[-3].start ;
check_array(yyvsp[-1].stp) ;
code_array(yyvsp[-1].stp) ;
code2(_PUSHI, &fs_shadow) ;
code2(_BUILTIN, bi_split) ;
}
break;
case 145:
#line 757 "parse.y"
{ check_array(yyvsp[-1].stp) ; code_array(yyvsp[-1].stp) ; }
break;
case 146:
#line 759 "parse.y"
{ yyval.start = yyvsp[-5].start ; code2(_BUILTIN, bi_split) ; }
break;
case 147:
#line 769 "parse.y"
{
if ( code_ptr[-2].op == _PUSHC &&
((CELL *)code_ptr[-1].ptr)->type == C_STRING )
cast_for_split(code_ptr[-1].ptr) ;
}
break;
case 148:
#line 776 "parse.y"
{ code2(_PUSHC, yyvsp[-1].cp) ; }
break;
case 149:
#line 785 "parse.y"
{ yyval.start = yyvsp[-3].start ; code2(_BUILTIN, bi_match) ; }
break;
case 150:
#line 789 "parse.y"
{ yyval.start = code_ptr ;
code2(_PUSHC, yyvsp[0].cp) ;
}
break;
case 151:
#line 793 "parse.y"
{ if ( code_ptr[-2].op == _PUSHC &&
((CELL *)code_ptr[-1].ptr)->type == C_STRING )
/* re compile now */
cast_to_RE((CELL *) code_ptr[-1].ptr) ;
}
break;
case 152:
#line 803 "parse.y"
{ yyval.start = code_ptr ;
code2(_PUSHI, field) ;
code2(_BUILTIN, bi_length) ;
}
break;
case 153:
#line 810 "parse.y"
{ yyval.start = code_ptr ;
code1(_EXIT0) ; }
break;
case 154:
#line 813 "parse.y"
{ yyval.start = yyvsp[-1].start ; code1(_EXIT) ; }
break;
case 155:
#line 816 "parse.y"
{ yyval.start = code_ptr ;
code1(_RET0) ; }
break;
case 156:
#line 819 "parse.y"
{ yyval.start = yyvsp[-1].start ; code1(_RET) ; }
break;
case 157:
#line 824 "parse.y"
{ yyval.start = code_ptr ;
code2(F_PUSHA, &field[0]) ;
code1(_PUSHINT) ; code1(0) ;
code2(_BUILTIN, bi_getline) ;
getline_flag = 0 ;
}
break;
case 158:
#line 831 "parse.y"
{ yyval.start = yyvsp[0].start ;
code1(_PUSHINT) ; code1(0) ;
code2(_BUILTIN, bi_getline) ;
getline_flag = 0 ;
}
break;
case 159:
#line 837 "parse.y"
{ code1(_PUSHINT) ; code1(F_IN) ;
code2(_BUILTIN, bi_getline) ;
/* getline_flag already off in yylex() */
}
break;
case 160:
#line 842 "parse.y"
{ code2(F_PUSHA, &field[0]) ;
code1(_PUSHINT) ; code1(PIPE_IN) ;
code2(_BUILTIN, bi_getline) ;
}
break;
case 161:
#line 847 "parse.y"
{
code1(_PUSHINT) ; code1(PIPE_IN) ;
code2(_BUILTIN, bi_getline) ;
}
break;
case 162:
#line 853 "parse.y"
{ getline_flag = 1 ; }
break;
case 165:
#line 858 "parse.y"
{ yyval.start = code_ptr ;
code2(F_PUSHA, field+0) ;
}
break;
case 166:
#line 862 "parse.y"
{ yyval.start = yyvsp[-1].start ; }
break;
case 167:
#line 870 "parse.y"
{
if ( yyvsp[0].start - yyvsp[-1].start == 2 &&
yyvsp[-1].start->op == _PUSHC &&
((CELL *) yyvsp[-1].start[1].ptr)->type == C_STRING )
/* cast from STRING to REPL at compile time */
cast_to_REPL( (CELL *) yyvsp[-1].start[1].ptr ) ;
code2(_BUILTIN, yyvsp[-5].fp) ;
yyval.start = yyvsp[-3].start ;
}
break;
case 168:
#line 881 "parse.y"
{ yyval.fp = bi_sub ; }
break;
case 169:
#line 882 "parse.y"
{ yyval.fp = bi_gsub ; }
break;
case 170:
#line 886 "parse.y"
{ yyval.start = code_ptr ;
code2(F_PUSHA, &field[0]) ;
}
break;
case 171:
#line 891 "parse.y"
{ yyval.start = yyvsp[-1].start ; }
break;
case 172:
#line 899 "parse.y"
{ resize_fblock(yyvsp[-1].fbp, code_ptr) ;
code_ptr = main_code_ptr ;
scope = SCOPE_MAIN ;
active_funct = (FBLOCK *) 0 ;
restore_ids() ;
}
break;
case 173:
#line 909 "parse.y"
{ eat_nl() ;
scope = SCOPE_FUNCT ;
active_funct = yyvsp[-3].fbp ;
main_code_ptr = code_ptr ;
if ( yyvsp[-3].fbp->nargs = yyvsp[-1].ival )
yyvsp[-3].fbp->typev = (char *) memset(
zmalloc(yyvsp[-1].ival), ST_LOCAL_NONE, yyvsp[-1].ival) ;
else yyvsp[-3].fbp->typev = (char *) 0 ;
code_ptr = yyvsp[-3].fbp->code =
(INST *) zmalloc(PAGE_SZ*sizeof(INST)) ;
}
break;
case 174:
#line 924 "parse.y"
{ FBLOCK *fbp ;
if ( yyvsp[0].stp->type == ST_NONE )
{
yyvsp[0].stp->type = ST_FUNCT ;
fbp = yyvsp[0].stp->stval.fbp =
(FBLOCK *) zmalloc(sizeof(FBLOCK)) ;
fbp->name = yyvsp[0].stp->name ;
}
else
{
type_error( yyvsp[0].stp ) ;
/* this FBLOCK will not be put in
the symbol table */
fbp = (FBLOCK*) zmalloc(sizeof(FBLOCK)) ;
fbp->name = "" ;
}
yyval.fbp = fbp ;
}
break;
case 175:
#line 946 "parse.y"
{ yyval.fbp = yyvsp[0].fbp ;
if ( yyvsp[0].fbp->code )
compile_error("redefinition of %s" , yyvsp[0].fbp->name) ;
}
break;
case 176:
#line 952 "parse.y"
{ yyval.ival = 0 ; }
break;
case 178:
#line 957 "parse.y"
{ yyvsp[0].stp = save_id(yyvsp[0].stp->name) ;
yyvsp[0].stp->type = ST_LOCAL_NONE ;
yyvsp[0].stp->offset = 0 ;
yyval.ival = 1 ;
}
break;
case 179:
#line 963 "parse.y"
{ if ( is_local(yyvsp[0].stp) )
compile_error("%s is duplicated in argument list",
yyvsp[0].stp->name) ;
else
{ yyvsp[0].stp = save_id(yyvsp[0].stp->name) ;
yyvsp[0].stp->type = ST_LOCAL_NONE ;
yyvsp[0].stp->offset = yyvsp[-2].ival ;
yyval.ival = yyvsp[-2].ival + 1 ;
}
}
break;
case 180:
#line 978 "parse.y"
{ yyval.start = yyvsp[-1].start ;
code2(_CALL, yyvsp[-2].fbp) ;
if ( yyvsp[0].ca_p ) code1(yyvsp[0].ca_p->arg_num+1) ;
else code1(0) ;
check_fcall(yyvsp[-2].fbp, scope, active_funct,
yyvsp[0].ca_p, token_lineno) ;
}
break;
case 181:
#line 990 "parse.y"
{ yyval.ca_p = (CA_REC *) 0 ; }
break;
case 182:
#line 992 "parse.y"
{ yyval.ca_p = yyvsp[0].ca_p ;
yyval.ca_p->link = yyvsp[-1].ca_p ;
yyval.ca_p->arg_num = yyvsp[-1].ca_p ? yyvsp[-1].ca_p->arg_num+1 : 0 ;
}
break;
case 183:
#line 1007 "parse.y"
{ yyval.ca_p = (CA_REC *) 0 ; }
break;
case 184:
#line 1009 "parse.y"
{ yyval.ca_p = (CA_REC *) zmalloc(sizeof(CA_REC)) ;
yyval.ca_p->link = yyvsp[-2].ca_p ;
yyval.ca_p->type = CA_EXPR ;
yyval.ca_p->arg_num = yyvsp[-2].ca_p ? yyvsp[-2].ca_p->arg_num+1 : 0 ;
}
break;
case 185:
#line 1015 "parse.y"
{ yyval.ca_p = (CA_REC *) zmalloc(sizeof(CA_REC)) ;
yyval.ca_p->link = yyvsp[-2].ca_p ;
yyval.ca_p->arg_num = yyvsp[-2].ca_p ? yyvsp[-2].ca_p->arg_num+1 : 0 ;
code_call_id(yyval.ca_p, yyvsp[-1].stp) ;
}
break;
case 186:
#line 1024 "parse.y"
{ yyval.ca_p = (CA_REC *) zmalloc(sizeof(CA_REC)) ;
yyval.ca_p->type = CA_EXPR ;
}
break;
case 187:
#line 1029 "parse.y"
{ yyval.ca_p = (CA_REC *) zmalloc(sizeof(CA_REC)) ;
code_call_id(yyval.ca_p, yyvsp[-1].stp) ;
}
break;
#line 2409 "y.tab.c"
}
yyssp -= yym;
yystate = *yyssp;
yyvsp -= yym;
yym = yylhs[yyn];
if (yystate == 0 && yym == 0)
{
#if YYDEBUG
if (yydebug)
printf("yydebug: after reduction, shifting from state 0 to\
state %d\n", YYFINAL);
#endif
yystate = YYFINAL;
*++yyssp = YYFINAL;
*++yyvsp = yyval;
if (yychar < 0)
{
if ((yychar = yylex()) < 0) yychar = 0;
#if YYDEBUG
if (yydebug)
{
yys = 0;
if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
if (!yys) yys = "illegal-symbol";
printf("yydebug: state %d, reading %d (%s)\n",
YYFINAL, yychar, yys);
}
#endif
}
if (yychar == 0) goto yyaccept;
goto yyloop;
}
if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 &&
yyn <= YYTABLESIZE && yycheck[yyn] == yystate)
yystate = yytable[yyn];
else
yystate = yydgoto[yym];
#if YYDEBUG
if (yydebug)
printf("yydebug: after reduction, shifting from state %d \
to state %d\n", *yyssp, yystate);
#endif
if (yyssp >= yyss + yystacksize - 1)
{
goto yyoverflow;
}
*++yyssp = yystate;
*++yyvsp = yyval;
goto yyloop;
yyoverflow:
yyerror("yacc stack overflow");
yyabort:
return (1);
yyaccept:
return (0);
}
/********************************************
parse2.xc
copyright 1991, Michael D. Brennan
This is a source file for mawk, an implementation of
the Awk programming language as defined in
Aho, Kernighan and Weinberger, The AWK Programming Language,
Addison-Wesley, 1988.
See the accompaning file, LIMITATIONS, for restrictions
regarding modification and redistribution of this
program in source or binary form.
********************************************/
/* $Log: parse2.xc,v $
Revision 3.4.1.1 91/09/25 13:26:16 brennan
VERSION 1.0
Revision 3.4 91/06/28 04:19:26 brennan
VERSION 0.999
Revision 3.3 91/06/26 14:13:00 brennan
#ifdef YYBYACC was in the wrong spot
Revision 3.2 91/06/25 07:07:23 brennan
changed name to parse2.xc, so people won't try to compile it
* Revision 3.1 91/06/07 10:28:05 brennan
* VERSION 0.995
*
* Revision 1.1 91/06/03 15:39:31 brennan
* Initial revision
*
*/
/* If using Berkeley yacc, we can put the parser table
memory to the zmalloc pool. This is kind of ugly and
with paged vm probably a nop, but for DOS and MINIX and ??
it frees a considerably amount of memory.
This file is part of parse.c via
cat y.tab.c parse2.xc > parse.c
*/
static struct yacc_mem yacc_mem[] =
{
0 , 0 , /* don't remove this */
#ifndef THINK_C
#ifdef YYBYACC
(PTR) yycheck, sizeof(yycheck)/8,
(PTR) yytable, sizeof(yytable)/8,
(PTR) yyvs , sizeof(yyvs)/8,
(PTR) yyss, sizeof(yyss)/8,
(PTR) yydefred, sizeof(yydefred)/8,
(PTR) yydgoto, sizeof(yydgoto)/8,
(PTR) yygindex, sizeof(yygindex)/8,
(PTR) yylen, sizeof(yylen)/8,
(PTR) yylhs, sizeof(yylhs)/8,
(PTR) yyrindex, sizeof(yyrindex)/8,
(PTR) yysindex, sizeof(yysindex)/8,
#endif
#endif
0,0 } ;
struct yacc_mem *yacc_memp = yacc_mem ;